DataTables("农户基础数据").AllowEdit = False
'---------------以下定义村别--------
Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")
Dim cb As WinForm.TopicPage = fll.pages("村别")
cb.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别='村别'","_identify").Split("|")
Dim kg As String = new String("",20-bmmc.Length*2)
cb.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","村别='"& bmmc &"'") & "户)")
Next
'Tables("农户基础数据").TopVisibleRow =0
Dim yh As WinForm.TopicPage = fll.pages("办理银行")
yh.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别='办理银行'","_identify").Split("|")
Dim kg As String = new String("",20-bmmc.Length*2)
yh.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","办理银行='"& bmmc &"'") & "户)")
Next
Dim lb As WinForm.TopicPage = fll.pages("办理类别")
lb.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别='办理类别'","_identify").Split("|")
Dim kg As String = new String("",20-bmmc.Length*2)
lb.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","办理类别='"& bmmc &"'") & "户)")
Next
Dim yy As WinForm.TopicPage = fll.pages("办理原因")
yy.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别='办理原因'","_identify").Split("|")
Dim kg As String = new String("",20-bmmc.Length*2)
yy.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","办理原因='"& bmmc &"'") & "户)")
Next
Tables("农户基础数据").TopVisibleRow =0
加好友 
发短信
Post By：2018/9/27 14:23:00 [显示全部帖子]
