大家好,目的是想实现分类栏统计的功能,但是出现“未将对象引用设置到对象的实例”报错,请各位看看哪里出现错误了
贴上代码:
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编辑过]