以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助][讨论]出现“未将对象引用设置到对象的实例”报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144188)

--  作者:爱秦宣言
--  发布时间:2019/12/13 9:26:00
--  [求助][讨论]出现“未将对象引用设置到对象的实例”报错
大家好,目的是想实现分类栏统计的功能,但是出现“未将对象引用设置到对象的实例”报错,请各位看看哪里出现错误了

贴上代码:
Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")
Dim sx As WinForm.TopicPage = fll.Pages("事项分类")
sx.Links.Clear

For Each sxfl As String In DataTables("词典").GetComboListString("名称","类别 =  \'事项分类\'","_identify").Split("|")
Dim kg As String = new String (" ",10 - sxfl.Length*2)
sx.Links.Add(sxfl,sxfl & kg  & "   (" & DataTables("日志").Compute("count(_identify)","事项分类 = \'" & sxfl & "\'") & "人)"  )
Next
[此贴子已经被作者于2019/12/13 9:27:04编辑过]

--  作者:有点蓝
--  发布时间:2019/12/13 9:33:00
--  
主窗口有没有打开?控件、任务名称是否正确?
--  作者:爱秦宣言
--  发布时间:2019/12/13 9:56:00
--  
都是正确的,现在一旦应用窗口就出现报错
--  作者:有点蓝
--  发布时间:2019/12/13 10:04:00
--  
试试
For Each sxfl As String In DataTables("词典").GetComboListString("名称","类别 =  \'事项分类\' and 名称 is not null","_identify").Split("|")

--  作者:爱秦宣言
--  发布时间:2019/12/13 10:11:00
--  
 好的
--  作者:爱秦宣言
--  发布时间:2019/12/13 10:18:00
--  
 还是出现报错
--  作者:爱秦宣言
--  发布时间:2019/12/13 10:19:00
--  
还是出现报错
--  作者:有点蓝
--  发布时间:2019/12/13 10:25:00
--  
那就不是这里的问题了。调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm

或者上传实例看看

--  作者:爱秦宣言
--  发布时间:2019/12/13 13:18:00
--  
已解决谢谢