我的一个查询语句,再没有使用存储过程时,用的好好的,使用存储过程后出现:未将对象引用设置到对象的实例

我的一个查询语句,再没有使用存储过程时,用的好好的,使用存储过程后出现:未将对象引用设置到对象的实例

Dim   strsql   As   String   =   "select   tbsptm.f_sptm   sptm,tbspda.f_spmc   spmc,c.qmsl, "   &   _
                                "(c.qmsl*tbspda.f_xsdj)   qmje,(tbspda.f_zhjj*(1+tbspda.f_sl/100))   zhjj,tbspda.f_xsdj   xsdj,c.qmsl*(tbspda.f_zhjj*(1+tbspda.f_sl/100))   qmjjje   from   "   &   _
                                "(select   a.f_spbm   spbm,(a.qcsl+b.fssl)   qmsl   from   (select   f_spbm,sum(f_qcsl)   qcsl,sum(f_qcje)   qcje   from   "   &   bbb   &   "_yhj   where   f_bmbm   like   ' '% ' '   and   f_spbm   in   "   &   _
                                "(select   f_spbm   from   tbsptm   where   f_xh= ' '1 ' '   and   f_sptm   like   ' '% ' '   and   f_spbm   in   (select   f_spbm   from   tbgysdz   where   f_gysbm= ' ' "   &   userid   &   " ' '))   group   by   f_spbm)   a, "   &   _
                                "(select   f_spbm,(sum(f_jhsl)+sum(f_Brsl)+sum(f_Sysl)+sum(f_Pssl)-sum(f_Xssl)-sum(f_Bcsl)-sum(f_Shsl)-sum(f_Phsl))   fssl   from   "   &   bbb   &   "_rhj   where   f_rq <= ' ' "   &   rq2   &   " ' '   "   &   _
                                "and   f_bmbm   like   ' '% ' '   and   f_spbm   in   (select   f_spbm   from   tbsptm   where   f_xh= ' '1 ' '   and   f_sptm   like   ' '% ' '   and   f_spbm   in   (select   f_spbm   from   tbgysdz   where   f_gysbm= ' ' "   &   userid   &   " ' ')) "   &   _
                                "group   by   f_spbm)   b   where   a.f_spbm=b.f_spbm)   c,tbspda,tbsptm   where   c.spbm=tbspda.f_spbm   and   c.spbm=tbsptm.f_spbm   and   tbsptm.f_xh= ' '1 ' '   and   f_sptm   like   ' '% ' '   order   by   tbsptm.f_sptm "

                        strsql   =   "exec   ProcGetPage   ' "   &   strsql   &   " ', '1 ', '10 ' "
                        dr   =   hsjdata.readrow(strsql)
                          Dim   dt   As   DataTable   =   New   DataTable
                        dt   =   hsjdata.ConvertDataReaderToDataTable(dr)