未将对象引用设置到对象的实例 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim DRS1 As List(OF DataRow) '锁定列判断辅助核算是否填写完整

DRS1 = DataTables("续时账模板").Select("[记账参数匹配列] ='"& E.DataRow("摘要") &"'")

Dim A1 As Integer =DRS1.Count

Dim DRS3 As List(OF String)

MessageBox.Show(1)

For I = 0 To A1-1

If drs1(I)("核算项目1") <> "" And drs3.Contains(drs1(I)("核算项目1")) = False

DRS3.Add(drs1(I)("核算项目1") )

End If

MessageBox.Show(2)

老师，这段代码老是显示“未将对象引用设置到对象的实例。”是啥情况啊

主题：未将对象引用设置到对象的实例