不建立关联,能动态生成一个与原表结构一样,但没数据的空表作为录入表吗?我这样写生成的结构与原表相同,但原表的某些列设置的下拉选项没有了。
Dim tbl As WinForm.Table
Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
If tab.TabPages.Contains("基本信息录入") = False Then
tab.TabPages.Add("基本信息录入","基本信息录入")
tbl = Forms("主窗口").CreateSQLTable("基本信息录入","Select * Fro m {基本信息} Where [棋赛名称] Is Null","")
tbl.SetBounds(0, 0, 1100, 580)
Forms("主窗口").Controls("TabControl1").Tabpages("基本信息录入").AddControl(tbl)
Forms("主窗口").Controls("TabControl1").SelectedIndex = tab.TabPages.count + 1
Else
tbl = Forms("主窗口").Controls("基本信息录入")
End If
tbl.Table.SetColVisibleWidth(Tables("基本信息").GetColVisibleWidth())
Dim nr As DataRow = tbl.Table.DataTable.AddNew()
tbl.Table.AutoAddNew = True
[此贴子已经被作者于2020/8/29 20:46:10编辑过]