这是主窗口的AfterLoad事件代码: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 & "人次)")
Next
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 & "人次)")
Next
Tables("存档数据").TopVisibleRow = 0
下面是错误提示窗口:
此主题相关图片如下：无标题.jpg
加好友 
发短信
Post By：2020/3/27 18:19:00 [只看该作者]
