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

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：109728 积分：558356 威望：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()

有点蓝

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

加好友

发短信

等级：超级版主帖子：109728 积分：558356 威望：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()

有点蓝

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

加好友

发短信

等级：超级版主帖子：109728 积分：558356 威望：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

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

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