专家坐堂-[求助][推荐]查找错误原因!Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tb As WinForm.TopicBar = Forms("主窗").Controls("TopicBar1")

Dim ks As WinForm.TopicPage = tb.Pages("住院科室")

ks.Links.Clear

For Each zyks As String In DataTables("存档数据").GetComboListString("住院科室","_Identify").Split("|")

Dim kg As String = New String(" ",24 - zyks.Length*2)

Dim rf As String = DataTables("存档数据").Compute("count(_Identify)","住院科室 = `" & zyks & "`")

Dim kg1 As String = new String(" ",12 - rf.Length)

ks.Links.Add(zyks,zyks & kg & "(" & kg1 & rf & "人次)")

Dim ys As WinForm.TopicPage = tb.Pages("经治医生")

ys.Links.Clear

For Each jzys As String In DataTables("存档数据").GetComboListString("经治医生","_Identify").Split("|")

Dim kg2 As String = New String(" ",24 - jzys.Length*2)

Dim rf As String = DataTables("存档数据").Compute("count(_Identify)","经治医生 = `" & jzys & "`")

Dim kg3 As String = new String(" ",12 - rf.Length)

ys.Links.Add(jzys,jzys & kg2 & "(" & kg3 & rf & "人次)")

Tables("存档数据").TopVisibleRow = 0