- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]TabControl的用法 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27795)
-- 发布时间：2013/1/10 12:07:00
-- [求助]TabControl的用法
以下只是示意
表A中有两列，一列是分类，一列是任务已经在全局代码中定义了一个 WorkType的全局变量，已经做了一个窗口，里面有一个TabControl控件，有4个分页夹。
希望做到：
如果A列的值＝1，则下拉框“自动”选中显示分页夹“AAA”，即名称“界面1”；
如果A列的值＝2，则下拉框“自动”选中显示分页夹“BBB”；即名称“界面2”；
如果A列的值＝3，则下拉框“自动”选中显示分页夹“CCC”；即名称“界面3”；
如果A列的值＝4，则下拉框“自动”选中显示分页夹“DDD”；即名称“界面4”；
我试了在表的事件中和窗口加载事件中添加代码，但结果与我想的不一样。
请教该如何做呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
[此贴子已经被作者于2013-1-10 12:07:51编辑过]
-- 发布时间：2013/1/10 12:58:00
--
表事件代码删除:
Dim r As Row = Tables("表A").Current
If r Is Nothing Then
Return
End If
Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")
Select Case r("分类")
Case 1
tab.SelectedIndex = 0
Case 2
tab.SelectedIndex = 1
Case 3
tab.SelectedIndex = 2
Case 4
tab.SelectedIndex = 3
End Select
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框
在窗口的DropDownOpened事件执行
-- 发布时间：2013/1/10 15:34:00
--
直接写这句就行了，代码加在哪里，楼主决定。
tab.SelectedIndex = e.Row("分类") - 1