增加一个TabControl控件
Bar增加红色代码:
Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
Select Case Bar.SelectedIndex
Case 0
e.Form.Controls("TabControl1").SelectedIndex = 0
Dim dst1 As WinForm.DataList = e.Form.Controls("DataList1")
dst1.DataTable = DataTables("业务录入")
dst1.ColumnList = "客户|单号|"
dst1.ColumnWidth = "80|50|"
dst1.sort = "客户"
dst1.Build()
Case 1
e.Form.Controls("TabControl1").SelectedIndex = 1
Dim dst2 As WinForm.DataList = e.Form.Controls("DataList2")
dst2.DataTable = DataTables("客户名录")
dst2.Build()
End Select
[此贴子已经被作者于2009-1-9 15:38:52编辑过]