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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在分页集合版面动态添加的表如何继承基本表的表结构

共有9398人关注过本帖树形打印复制链接主题：在分页集合版面动态添加的表如何继承基本表的表结构

采菊东篱下

小大 31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/1 19:56:00 [显示全部帖子]

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(c2.Name)

DataTables("基本信息").Load

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

这段代码对这样的数据报错，不执行任何数据。

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

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

采菊东篱下

小大 32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/1 20:37:00 [显示全部帖子]

保存后基本信息的数据被替代了！且很多空行！

[此贴子已经被作者于2020/9/1 21:27:21编辑过]

采菊东篱下

小大 33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/1 22:09:00 [显示全部帖子]

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

Dim Filter As String = "1=1"

For Each dc As Col In t.Cols

Filter = Filter & " And " & dc.Name & " Is Not Null"

t.Filter = Filter

Dim nr As DataRow

For Each dr As Row In t.rows

For Each c2 As Col In t.Cols

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

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

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

DataTables("基本信息").Load

安照这代码执行，基本信息录入数据全消失了，所有行都被删除了！基本信息表并没有取得任何数据，录入失败，白做！

[此贴子已经被作者于2020/9/1 22:44:04编辑过]

采菊东篱下

小大 34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/1 22:52:00 [显示全部帖子]

肯定有空列，而且不止一列，说明这代码无法实现录入。

采菊东篱下

小大 35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/1 22:55:00 [显示全部帖子]

缺赛轮号、备注两列有数据就录进去，没数据就为空。

采菊东篱下

小大 36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/1 22:59:00 [显示全部帖子]

其实单据也一样，如进、出仓单据，一般都有备注栏方便人说明，备注栏不一定有数据，但缺之不行，有就保存到数据库后台，没就为空，这些都是企业必要的要求。

采菊东篱下

小大 37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/1 23:02:00 [显示全部帖子]

在基本信息录入里数据已经消失了，这是临时表，没后台数据，消失了就等于没了，要重新录入，白干！

采菊东篱下

小大 38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/2 11:30:00 [显示全部帖子]

我要求的是行不能为空不是列不能为空，之所以定义列，是因为只有列属性里有name，我要用它获取位置，昨晚执行了你这段代码后在基本信息表中确定不见添加任何数据，刚重启后才见昨天录入的人数，录入数据要重启后才见不方便，代码中不是已有

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

DataTables("基本信息").Load

代码吗？似乎不应重启才见。

[此贴子已经被作者于2020/9/2 11:58:44编辑过]

采菊东篱下

小大 39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/2 11:40:00 [显示全部帖子]

对了昨晚录入的数据里还是有空行。

采菊东篱下

小大 40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2020/9/2 11:55:00 [显示全部帖子]

刚重新操作一下，还是这样保存后有空行，要重新打开后才看见录入数据，重新加载目录树都不见数据。

下一主题 >> << 上一主题

总数 78 上一页 1 2 3 4 5 6 7 8 下一页

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