- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 版主好~请教一个问题~ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134300)
-- 发布时间：2019/5/3 21:03:00
-- 版主好~请教一个问题~
此主题相关图片如下：微信图片_20190503210053.png
Dim tb1 As WinForm.Table = Forms("当前查询").Controls("Table1")
Dim jzzd As WinForm.ComboBox = Forms("共享窗口").Controls("交战主队")
Dim jzkd As WinForm.ComboBox = Forms("共享窗口").Controls("交战客队")
If jzkd.Text>"" And jzzd.Text>"" Then
Dim count As Integer = tb1.Table.DataTable.Compute("count(主队名称)", "主队名称 = \'" & jzzd.Text & "\'")
\'Forms("共享窗口").Controls("TopicBar1").Pages("场次统计").Links("主场数").Text = "主场数(" & count & "场)"
Forms("当前查询").Controls("TabControl1").Pages("主队主场").Pages(0).Text= "(" & count & "场)"
End If
提示一个这样的错误，navbar是links，这个不知道该定义在哪个位置上。。。。。。。。。。。。。。
-- 发布时间：2019/5/4 9:49:00
--
Forms("当前查询").Controls("TabControl1").Pages("主队主场").Pages(0).Text= "(" & count & "场)"
改成
Forms("当前查询").Controls("TabControl1").tabPages(0).Text= "(" & count & "场)"
或者
Forms("当前查询").Controls("TabControl1").tabPages("主队主场").Text= "(" & count & "场)"