- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]新增多行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119301)
-- 发布时间：2018/5/22 14:03:00
-- [求助]新增多行
-- 发布时间：2018/5/22 14:21:00
--
“Tables("库存").AddNew()”后面括号不是有个参数吗
-- 发布时间：2018/5/22 14:39:00
--
没看懂你表达的意思。增加重复的5行参考
Dim dr As DataRow = DataTables("转移货位").DataRows(0)
Dim dr3 As DataRow = DataTables("库存").Find("货位号 = \'" & dr("货位号") & "\'")
For i As Integer = 1 To 5
Dim xz = Tables("库存").AddNew()
xz("通用名") = dr("通用名")
xz("商品编号") = dr("商品编号")
xz("规格") = dr("规格")
xz("批号") = dr("批号")
xz("货位号") = dr("移入货位")
xz("入库数量") = dr("数量")
xz("入库类型") = dr("类型")
dr3("出库数量") = dr("数量")
dr3("出库类型") = dr("类型")
Next
-- 发布时间：2018/5/22 14:40:00
--
请具体说明你要做什么，截图或者实例。
-- 发布时间：2018/5/22 15:29:00
--
此主题相关图片如下：qq图片111.png
这个是个库存表，我想把货位号是10001099转移个货位，像这样此主题相关图片如下：qq图片222.png
，我单个转移是可以实现的，原先的货位号上的出库数量，等于是新增的入库数量，库存是用表达式自动计算的，我想实现多个货位同时转移，也就是转出的货位的出库数量和转入货位的入库数量是一样的，不知道要用代码怎么实现-- 发布时间：2018/5/22 17:06:00
--
选择以后移动？
For Each dr As DataRow In DataTables("转移货位").Select("选择 = true")
Dim dr3 As DataRow = DataTables("库存").Find("货位号 = \'" & dr("货位号") & "\'")
Dim xz = Tables("库存").AddNew()
xz("通用名") = dr("通用名")
xz("商品编号") = dr("商品编号")
xz("规格") = dr("规格")
xz("批号") = dr("批号")
xz("货位号") = dr("移入货位")
xz("入库数量") = dr("数量")
xz("入库类型") = dr("类型")
dr3("出库数量") = dr("数量")
dr3("出库类型") = dr("类型")
Next