主题：如何实现TabControl1页面标题动态更新？

想实现页面标题动态更新

 
此主题相关图片如下：12.png

比如对象信息（1） 既往病史（） 危机违法记录（）处理结果（）

 

代码如下 ：但是没有实现效果，麻烦老师指导下  谢谢！

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
If tb.SelectedPage.Name ="对象信息" Then
    tb.SelectedPage.Text="对象信息（" & DataTables("对象信息").Compute("count(身份证件号码)","uuid='" & Tables("案事件管理_table1").Current("uuid") & "'") & " ）"
End If

设计页签的时候有指定页面名称吗？也就是上面的Name属性

老师  页面名称和标题都是一样的内容  都写了值的

 

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
If tb.SelectedPage.Name ="对象信息" Then
    tb.SelectedPage.Text="对象信息(" & DataTables("对象信息").sqlCompute("count(身份证件号码)","uuid='" & Tables("案事件管理_table1").Current("uuid") & "'") & ")"
Else If tb.SelectedPage.Name ="既往病史" Then
    tb.SelectedPage.Text="既往病史(" & DataTables("明细表").sqlCompute("count(身份证件号码)","uuid='" & Tables("案事件管理_table1").Current("uuid") & "' and 类别='既往病史'") & ")"
Else If tb.SelectedPage.Name ="违纪违法记录" Then
    tb.SelectedPage.Text="违纪违法记录(" & DataTables("明细表").sqlCompute("count(身份证件号码)","uuid='" & Tables("案事件管理_table1").Current("uuid") & "'and 类别='违纪违法记录'") & ")"
Else If tb.SelectedPage.Name ="处理结果" Then
    tb.SelectedPage.Text="处理结果(" & DataTables("明细表").sqlCompute("count(身份证件号码)","uuid='" & Tables("案事件管理_table1").Current("uuid") & "' And 类别='处理结果'") & ")"
End If

 

现在只得到了第一个 对象信息的数据  对象信息（1） 既往病史  违纪违法记录  处理结果  都没有改变

是不是条件不对

 

想实现的是点击了案事件信息一览表之后  对应的这个页面集合就分别统计出上述代码中的对应数据  并将标题更改为  对象信息（1） 类似内容  便于直观看见对应的页面集合标签内是否有数据

tb.SelectedPage仅指当前页。处理所有页要遍历TabPage集合：http://www.foxtable.com/webhelp/topics/0830.htm

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
tb.TabPages(0).Text="对象信息(" & DataTables("对象信息").sqlCompute("count(身份证件号码)","uuid='" & Tables("案事件管理_table1").Current("uuid") & "'") & ")"
tb.TabPages(1).Text="既往病史(" & DataTables("明细表").sqlCompute("count(身份证号)","uuid='" & Tables("案事件管理_table1").Current("uuid") & "' and 类别='既往病史'") & ")"
tb.TabPages(2).Text="违纪违法记录(" & DataTables("明细表").sqlCompute("count(身份证号)","uuid='" & Tables("案事件管理_table1").Current("uuid") & "' and 类别='违纪违法记录'") & ")"
tb.TabPages(3).Text="处理结果(" & DataTables("明细表").sqlCompute("count(身份证号)","uuid='" & Tables("案事件管理_table1").Current("uuid") & "' and 类别='处理结果'") & ")"

 

参照提示，当前代码如上，初步实现标题的更新，老师还有没有其他实现标题更新的方法没有呢？

没有了