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

http://www.foxtable.com/webhelp/topics/1788.htm

遍历DataRows，

for each dr as datarow in Forms("主窗口").Controls("基本信息录入").Table.DataTable.DataRows

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

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

改为使用select添加条件返回没有空的数据:http://www.foxtable.com/webhelp/topics/0400.htm

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

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

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153642&authorid=0&page=0&star=5，从47楼开始再看看

我现在是定义动态加载表上的行和列问题，不是加载的表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编辑过]

如果有行，最后一行绝对不会是空的，这种判断完全是多余的，应该判断某一列单元格是否为空，比如编号

tbl.Table.SetColVisibleWidth(Tables("基本信息").GetColVisibleWidth())

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

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("xx列") = false Then'如果最后一行不为空

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

End If

AutoAddNew 是一个属性，不是一个函数：http://www.foxtable.com/webhelp/topics/0464.htm

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