| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教循环复制问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162133) |
| -- 作者：xcxxm -- 发布时间：2021/4/6 21:51:00 -- 请教循环复制问题 父表里生成单号和输入客户2个信息，明细表里包含有客户和单号两个列，新增10行自动把客户和单号从父表都复制过来 就是自动复制10次 Dim mdr As Row = Tables("bcqmx").AddNew(10) mdr("单号")=Tables("bczd").Current("单号") mdr("客户")=Tables("bczd").Current("客户") 这个效果只能有一行复制过来了，其余9行还是空的 请教老师代码如何写
[此贴子已经被作者于2021/4/6 21:59:43编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2021/4/6 22:04:00 -- Dim mdr As Row dim cr as row = Tables("bczd").Current for i as integer = 1 to 10mdr= Tables("bcqmx").AddNew() mdr("单号")=cr("单号") mdr("客户")=cr("客户") next
|
| -- 作者：xcxxm -- 发布时间：2021/4/6 22:10:00 -- 可以了，谢谢老师 |