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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 未将对象引用设置到对象的实例

共有2681人关注过本帖树形打印复制链接主题：未将对象引用设置到对象的实例

gaolei

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：69 积分：618 威望：0 精华：0 注册：2017/11/2 13:49:00

未将对象引用设置到对象的实例 发帖心情

Post By：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

MessageBox.Show(2)

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107812 积分：548411 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/5/11 20:08:00 [只看该作者]

要获取不重复的"核算项目1"？一句就行了

Dim DRS3 As List(OF String) = DataTables("续时账模板").getvalues("核算项目1","[记账参数匹配列] ='" & E.DataRow("摘要") &"' and 核算项目1 is not null")

gaolei

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：69 积分：618 威望：0 精华：0 注册：2017/11/2 13:49:00

Post By：2021/5/12 10:43:00 [只看该作者]

老师，不是的，有三列，我是想从三列里面提取不重复的值，你刚才写的只能从一列里面提取不重复值啊

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107812 积分：548411 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/5/12 10:58:00 [只看该作者]

多少列都行：http://www.foxtable.com/webhelp/topics/2747.htm，看示例六

gaolei

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：69 积分：618 威望：0 精华：0 注册：2017/11/2 13:49:00

Post By：2021/5/12 11:03:00 [只看该作者]

这个厉害，这个厉害，看帮助文档的时候忽略掉了，谢谢老师

下一主题 >> << 上一主题

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