副本表无法显示记录问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 副本表无法显示记录问题

共有2389人关注过本帖树形打印复制链接主题：副本表无法显示记录问题

hitzfeld

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

加好友

发短信

等级：二尾狐帖子：515 积分：5057 威望：0 精华：0 注册：2017/9/1 23:28:00

副本表无法显示记录问题 发帖心情

Post By：2021/3/30 18:39:00 [只看该作者]

窗口中的副本表无法显示记录，但是后台对于的表有正确生成。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:二级关联的记录加载问题.table

有点蓝

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

加好友

发短信

等级：超级版主帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/30 20:20:00 [只看该作者]

For Each dr1 As Row In Tables("业务订单").GetCheckedRows

Dim dr2 As Row = Tables("出库单.出库明细").AddNew() '以下三行把读到的记录按字段对应关系写入新表

dr2("产品名称") = dr1("产品名称")

dr2("单价") = dr1("单价")

dr2("业务单号") = dr1("业务单号")

For Each dr As DataRow In DataTables("订单附件").Select("[业务单号] = '" & dr1("业务单号") &"'")

' msgbox(dr("附件名称"))

Dim dr3 As Row = Tables("出库单_Table2").AddNew() '以下三行把读到的记录按字段对应关系写入新表

dr3("业务单号") = dr1("业务单号")

dr3("附件编号") = dr("附件编号")

dr3("附件类型") = dr("附件类型")

dr3("附件名称") = dr("附件名称")

dr3("客户") = dr("客户")

dr3("出库日期") = dr2("出库日期")

dr3("出库单号") = dr2("出库单号")

Tables("业务订单").ClearCheckedRows

e.Form.Close()

hitzfeld

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

加好友

发短信

等级：二尾狐帖子：515 积分：5057 威望：0 精华：0 注册：2017/9/1 23:28:00

Post By：2021/3/30 20:45:00 [只看该作者]

还是不行.....我做了个测试，在出库单窗口加了个buttom，代码就只有一句Tables("出库单_table2").AddNew()

但是窗口仍然不会显示任何新增行！后台会增加...........

有点蓝

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

加好友

发短信

等级：超级版主帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/30 20:48:00 [只看该作者]

要给筛选列赋值啊

For Each dr1 As Row In Tables("业务订单").GetCheckedRows

Dim dr2 As Row = Tables("出库单.出库明细").AddNew() '以下三行把读到的记录按字段对应关系写入新表

dr2("产品名称") = dr1("产品名称")

dr2("单价") = dr1("单价")

dr2("业务单号") = dr1("业务单号")

For Each dr As DataRow In DataTables("订单附件").Select("[业务单号] = '" & dr1("业务单号") &"'")

' msgbox(dr("附件名称"))

Dim dr3 As Row = Tables("出库单_Table2").AddNew() '以下三行把读到的记录按字段对应关系写入新表

dr3("业务单号") = dr1("业务单号")

dr3("附件编号") = dr("附件编号")

dr3("附件类型") = dr("附件类型")

dr3("附件名称") = dr("附件名称")

dr3("客户") = dr("客户")

dr3("出库日期") = dr2("出库日期")

dr3("出库单号") = dr2("出库单号")

Tables("业务订单").ClearCheckedRows

e.Form.Close()

hitzfeld

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

加好友

发短信

等级：二尾狐帖子：515 积分：5057 威望：0 精华：0 注册：2017/9/1 23:28:00

Post By：2021/3/30 20:55:00 [只看该作者]

蓝老师，恕我愚钝，确实没有显示啊！不是button，是选择单据之后。您点下“新增”再“添加明细”看下？麻烦您了。

有点蓝

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

加好友

发短信

等级：超级版主帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/30 21:06:00 [只看该作者]

“新增”按钮：

If Tables("出库单").Current IsNot Nothing AndAlso Tables("出库单").Current.DataRow.GetChildRows("出库明细").count = 0

msgbox("没有添加明细")

Return

End If

Dim r As Row = Tables("出库单").AddNew()

Tables("出库单_table2").Filter = "[出库单号] = '" & r("出库单号") & "'" '纸箱出库单_表单_table2

hitzfeld

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

加好友

发短信

等级：二尾狐帖子：515 积分：5057 威望：0 精华：0 注册：2017/9/1 23:28:00

Post By：2021/3/30 22:11:00 [只看该作者]

终于搞定了！眼泪汪汪啊！从昨天测试到今天，换了无数种方法都失败了。其实我离真相只有一步...........

我测试过

Dim r As Row = Tables("出库单.出库明细").current()

Tables("出库单_table2").Filter = "[出库单号] = '" & r("出库单号") & "'

这个方法也是错误的。

.RowState = DataRowState.Added 也试过了，也没有反应。

怎么就没想到要从父表来引用单号呢！！！！

谢谢蓝老师的耐心指导，感恩！

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

主题：副本表无法显示记录问题