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

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

我修改过内容，29楼一共3个问题。

如果觉得我回复的代码没有用，请自行解决，没有提问的必要了。不然请按照我提供的代码测试，如果还有问题再在我提供的代码的基础上反馈具体的错误和需求

哦，我明白你的意思了，是你们的软件没有判别整行为空的方法，只有判断列为空的方法，所以我这样写是错的，如果要判别整行所有单元格为空才能删除呢？毕竟只判断一列为空就删除整行，怕误删。

[此贴子已经被作者于2020/8/31 20:37:59编辑过]

遍历所有列判断，逐个判断

两种写法我都试了一下，注识部份是历遍，都是要在最后一列按回车才会新添一行，但最后一列是逻辑型，不输入数据的，在那按回车自动打勾了，显然这样不符合要求。

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 Row = tbl.Table.AddNew()

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

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

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

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

If tbl.Table.Rows.count = 0 OrElse tbl.Table.Rows(tbl.Table.Rows.Count - 1).Isnull("姓名") = False Then'如果最后一行不为空

tbl.Table.AddNew'则自动增加一行如果最后一行不为空

End If

'Dim Filter As String

'For Each dc As Col In tbl.Table.Cols

'Filter = Filter & " And " & dc.Name & " Is IsNot Null"

'Next

'tbl.Table.AddNew

[此贴子已经被作者于2020/8/31 21:06:58编辑过]

这算是一个bug。明天反馈一下。

或者可以到全局表事件的keydown事件自己写代码控制，如果是在逻辑型的前一个列回车就自己使用代码判断添加行

把动态生成的基本信息录入表上的数据保存到基本信息表，还是那个问题，不管怎么写都报错！

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

For i As Integer = 0 To Forms("主窗口").Controls("基本信息录入").Compute("Count([姓名])", "[姓名] Is Not Nothing") - 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()

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

Dim nr As DataRow

For Each dr As DataRow In dt.Select("[姓名] Is Not Nothing")

For Each c2 As DataCol In dt.DataCols

nr = DataTables("基本信息").AddNew()

nr(c2.Name) = dr(c1.Name)

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

c1呢？你没定义，且基本信息录入表不止一行，还得循环执行所有行的数据。

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