在分页集合版面动态添加的表如何继承基本表的表结构 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

改为这样依然报错

此主题相关图片如下：qq图片20200831115344.png

Dim tbl As WinForm.Table = Forms("主窗口").Controls("基本信息录入")

Dim dc As DataRow = Forms("主窗口").Controls("基本信息录入").Table.DataTable.DataRow()

For Each cl As Col In CurrentTable.Cols

For i As Integer = 0 To Forms("主窗口").Controls("基本信息录入").Rows("姓名").Count - 1

Dim dr As DataRow = DataTables("基本信息").AddNew()

dr(cl.Name) = dc(cl.Name)(i)

i + = 1

DataTables("基本信息").Load

DataTables("基本信息").Save()

[此贴子已经被作者于2020/8/31 11:57:05编辑过]

我不是指定行，我只是定义行。

改成这样，也报错：

Dim tbl As WinForm.Table = Forms("主窗口").Controls("基本信息录入")

For i As Integer = 0 To Forms("主窗口").Controls("基本信息录入").Rows("姓名").Count - 1

For Each c2 As Col In Forms("主窗口").Controls("基本信息").Cols

For Each c1 As Col In CurrentTable.Cols

For Each dc As DataRow In tbl .Table.DataTable.DataRows

Dim dr As DataRow = DataTables("基本信息").AddNew()

dr(c2.Name) = dc(c1.Name)(i)

i + = 1

DataTables("基本信息").Load

DataTables("基本信息").Save()

[此贴子已经被作者于2020/8/31 13:57:30编辑过]

你这样历遍把空行也算进去了，我不要空行。

反正我要实现把基本信息录入的数据添加到基本信息表，为方便录入，我在动态添加的基本信息录入表最后一行自动添加了空行，但把基本信息录入的数据添加到基本信息表不包括空行。

你没回我之前已经改了，还是报错：

Dim tbl As WinForm.Table = Forms("主窗口").Controls("基本信息录入")

For i As Integer = 0 To Forms("主窗口").Controls("基本信息录入").Rows("姓名").Count - 1

For Each c2 As Col In Forms("主窗口").Controls("基本信息").Cols

For Each c1 As Col In tbl.Table.Cols

For Each dc As DataRow In tbl.Table.DataTable.Select("[姓名] Is Not Nothing")

Dim dr As DataRow = DataTables("基本信息").AddNew()

dr(c2.Name) = dc(c1.Name)(i)

i + = 1

DataTables("基本信息").Load

DataTables("基本信息").Save()

我现在是定义动态加载表上的行和列问题，不是加载的表table，你给我绕回表是什么意思，你只需告诉我如何定义行和列就行了，帮助里说的是表，基本类型中也没有清楚解说动态表上的行和列怎么定义。

你没给我发连接我已把相关连接都看过了，你发给我的也是我看过的，但我还是没做好。

对了有3个问题：

1、菜单按钮中的配置栏－基本信息录入－增加基本信息代码，没添加红色标注的删除所有行和条件代码时前只要点菜单栏的基本信息录入按钮，就会自动添加一行，就算删除表，下次打开，上次已添加的行依然存在，而且在此基础上又添加两行，现在我加了条件，最后一行怎么不能自动添加一行了？

2、要想输入数据后按回车鼠标能自动换行，请教怎实现?

3、动态加载的自定义目录树在没点击目录树字节时，如何关闭窗口，我写的Forms("所属团体目录树").Close()，要点击目录树字节才能关闭，不点击无法关闭。

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())

tbl.Table.DataTable.DeleteFor("")'删除所有行

Dim nr As DataRow = tbl.Table.DataTable.AddNew()

tbl.Table.Cols("性别").Combolist = "男|女"

tbl.Table.Cols("身份").Combolist = "参赛人|裁判"

tbl.Table.Cols("所属团体或个人分组").DropForm = "所属团体目录树"

Forms("所属团体目录树").Close()

If tbl.Table.Rows(tbl.Table.Rows.Count - 1) IsNot Nothing Then'如果最后一行不为空

tbl.Table.AutoAddNew = True'则自动增加一行

End If

[此贴子已经被作者于2020/8/31 17:03:35编辑过]

　　不最后一行绝对会有空，会计凭证通常固定表高，设定最小行数，自动行高下如果内容只有两行，未填满凭证部份的以空行补够，这样打出来的凭证才美观，所以保存凭证后，只把有数据的行保存到账上，忽略空行这是所有ＥＲＰ软件都有的功能。

主题：在分页集合版面动态添加的表如何继承基本表的表结构