Case "棋赛名称管理"
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 3
Dim dt As WinForm.Table
Dim mc As String = "棋赛名称管理"
If tab.TabPages.Contains(mc) = False Then
tab.TabPages.Add(mc, mc)
dt = Forms("主窗口").CreateSQLTable("Table'" & mc & "'", "Select * Fr om {棋赛名称管理}", "")
Forms("主窗口").Controls("TabControl1").Tabpages(mc).AddControl(dt)
Forms("主窗口").Controls("TabControl1").SelectedIndex = tab.TabPages.count + 1
Else
dt = Forms("主窗口").Controls("Table'" & mc & "'")
End If
dt.SetBounds(0, 0, 1150, 520)
dt.Table.SetColVisibleWidth("棋赛名称|180|棋赛副名|180|团体或个人分组|60|分组|60|积分编排法|90")
dt.Table.SetHeaderRowHeight(40)
If DataTables("团体或个人分组").DataRows.Count = 0 Then
dt.Table.Cols("团体或个人分组").Combolist = ""
Else
dt.Table.Cols("团体或个人分组").Combolist = DataTables("团体或个人分组").GetComboListString("团体赛或个人赛")
End If
If e.Row.IsNull("团体或个人分组") Then
dt.Table.Cols("分组").Combolist = ""
Else
dt.Table.Cols("分组").Combolist = DataTables("团体或个人分组").GetComboListString("分组", "[团体赛或个人赛] ='" & e.Row("团体或个人分组") & "'")
End If
End Select
红色代码报错，改为Tables("主窗口_" & mc & "'").Row.IsNull("团体或个人分组")依然报错，请教应怎么写？
加好友 
发短信
Post By：2023/2/5 22:31:00 [显示全部帖子]
