- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如果根据表记录修改对应页面的名称（已解决）？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130723)
-- 发布时间：2019/1/30 10:02:00
-- [求助]如果根据表记录修改对应页面的名称（已解决）？
各位老师前辈好，请教一下，我现在有一个table，这个table的记录里面有两个字段，一个是“语音分组名称”，一个是“绑定到分组”，然后我在窗口的页面标签设置了10个页面，分别是“语音话术分组01到语音话术分组10”，table的“绑定到分组”字段的值和页面名称是对应的，现在想实现的功能是，当用户打开窗口后，能够根据记录，把页面原来的默认名称修改成table里面“语音分组名称”的值，不知道怎么遍历替换，希望老师前辈们能指教一下，多谢了！
窗口参考：
此主题相关图片如下：语音话术分组.png
[此贴子已经被作者于2019/1/30 11:40:23编辑过]
-- 发布时间：2019/1/30 11:38:00
--
Dim pg As WinForm.TabPage
For Each pg In Forms("窗口1").Controls("TabControl1").TabPages
Dim fdr = DataTables("表A").find("第一列 = \'" & pg.name & "\'")
pg.text = fdr("第二列")
Next
-- 发布时间：2019/1/30 11:43:00
--
已经解决，自己拼凑的函数，哈哈？
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
For i As Integer = 0 To tab.TabPages.count - 1
Dim ls As String = tab.TabPages(i).Text
Dim ld As String
Dim cjr As String = User_Name
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "S-e-l-e-c-t top 1 语音分组名称 From {YW_话术管理语音分组} Where 绑定到分组 = \'" & ls & "\' And 创建人 = \'" & cjr & "\' Order by 创建时间 Desc"
ld = cmd.ExecuteScalar()
If ld <> Nothing Then
tab.TabPages(i).Text = ld
Else
tab.TabPages(i).Visible = False
End If
Next