主表数据填充关联明细表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 主表数据填充关联明细表

共有5661人关注过本帖树形打印复制链接主题：主表数据填充关联明细表

冷泉

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

加好友

发短信

等级：小狐帖子：399 积分：3233 威望：0 精华：0 注册：2019/4/13 16:10:00

主表数据填充关联明细表 发帖心情

Post By：2022/3/2 18:17:00 [只看该作者]

主表

开单日期单据编号金额已付款（）未付款（5000）

明细关联表

单据编号商品名称1 数量单价金额已付款未付款（1000）

单据编号商品名称2 数量单价金额已付款未付款（2000）

单据编号商品名称3 数量单价金额已付款未付款（3000）

我想是在主表里面录入已付款金额4000，那么第一行已付款那里自动录1000 第二行已付款那里录2000 第三行已付款那里录1000，这个代码应该如何写，麻烦老师指导下，谢谢

有点蓝

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

加好友

发短信

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

Post By：2022/3/3 8:38:00 [只看该作者]

datacolchanged事件

If e.DataCol.Name = "已付款" Then
If e.DataRow.IsNull("已付款") = false Then

dim c as double = e.DataRow("已付款")
for each dr as datarow = datatables("明细关联表").select("单据编号='" & e.DataRow("单据编号") & "'","_sortkey")

if c > 0 then

if c >= dr("已付款") then

dr("已付款") = dr("已付款")

else

dr("已付款") = c

end if

c = c - dr("已付款")

else

exit for

end if

End If
End If

冷泉

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

加好友

发短信

等级：小狐帖子：399 积分：3233 威望：0 精华：0 注册：2019/4/13 16:10:00

Post By：2022/3/3 15:41:00 [只看该作者]

老师提示这个错误

此主题相关图片如下：微信截图_20220303153858.png

[此贴子已经被作者于2022/3/3 15:40:59编辑过]

有点蓝

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

加好友

发短信

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

Post By：2022/3/3 15:44:00 [只看该作者]

for each dr as datarow in datatables("明细关联表").select

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

主题：主表数据填充关联明细表