以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  未将对象引用设置到对象的实例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=165246)

--  作者：gaolei --  发布时间：2021/5/11 18:18:00 --  未将对象引用设置到对象的实例 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    Next   MessageBox.Show(2) 老师，这段代码老是显示“未将对象引用设置到对象的实例。”是啥情况啊

--  作者：有点蓝 --  发布时间：2021/5/11 20:08:00 --   要获取不重复的"核算项目1"？一句就行了 Dim DRS3 As List(OF String) = DataTables("续时账模板").getvalues("核算项目1","[记账参数匹配列] =\'" & E.DataRow("摘要") &"\' and 核算项目1 is not null")

--  作者：gaolei --  发布时间：2021/5/12 10:43:00 --   老师，不是的，有三列，我是想从三列里面提取不重复的值，你刚才写的只能从一列里面提取不重复值啊

--  作者：有点蓝 --  发布时间：2021/5/12 10:58:00 --   多少列都行：http://www.foxtable.com/webhelp/topics/2747.htm，看示例六

--  作者：gaolei --  发布时间：2021/5/12 11:03:00 --   这个厉害，这个厉害，看帮助文档的时候忽略掉了，谢谢老师