[求助]新增多行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr As DataRow = DataTables("转移货位").DataRows(0)

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("类型")

这个新增一行的代码是这样的

求教下，如果我要新增多行，代码要怎么改啊

主题：[求助]新增多行