以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  未将对象引用设置到对象的实例,在usercode.test()  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=165288)

--  作者:gaolei
--  发布时间:2021/5/12 16:32:00
--  未将对象引用设置到对象的实例,在usercode.test()
Dim DRS1  As List(OF DataRow)                                                 \'锁定列判断辅助核算是否填写完整
DRS1 = DataTables("续时账模板").Select("[记账参数匹配列] =\'支付工程款\'")
Dim A1  As Integer   =DRS1.Count
Dim DRS3 As List(OF String)
MessageBox.Show(1)
   For I As Integer  = 0 To A1-1
       If drs1(I)("核算项目1") <> "" 
          Dim s As String = drs1(I)("核算项目1")
         drs3.Add( S )                这行代码定位之后发现有问题,显示未将对象引用设置到对象的实例,在usercode.test(),老师我反复看了好几遍这几句代码没毛病啊,我想知道这个是啥原因呢
   End If
  Next  


--  作者:有点蓝
--  发布时间:2021/5/12 16:36:00
--  
Dim DRS3 As new List(OF String)
--  作者:gaolei
--  发布时间:2021/5/12 16:38:00
--  
吐血,原来这样,谢谢蓝老师