主题：[求助]自动填充数值代码

在存货统计表里，对未过账且客户名称不为空的记录，是出仓的将商品名称、规格、客户名称、业务日期、出仓等数据自动填充到订单表对应的商品名称、规格、客户名称、出仓日期、出仓数量，并在过账里打上记号;是进仓的将商品名称、规格、客户名称、业务日期、进仓等数据自动填充到采购表对应的商品名称、规格、客户名称、车务日期、采购数量，并在过账里打上记号。以上代码如何编写恳请各位赐教，谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:实验上传文件.zip

在命令窗口执行下面的代码，就能完全实现你的要求：

 

Dim nms1() As String = {"商品名称","规格","客户名称","出仓","业务日期"}
Dim nms2() As String = {"商品名称","规格","客户名称","出仓数量","出仓日期"}
Dim nms3() As String = {"商品名称","规格","客户名称","采购数量","业务日期"}
For Each dr1 As DataRow In DataTables("存货统计表").Select("过账 = False And 出仓 > 0 And 客户名称 Is Not Null")
   Dim dr2 As DataRow = DataTables("订单表").AddNew
    For i As Integer = 0 To nms1.Length -1
       dr2(nms2(i)) = dr1(nms1(i))
    Next
   dr1("过账") = True
Next
For Each dr1 As DataRow In DataTables("存货统计表").Select("过账 = False And 进仓 > 0 And 客户名称 Is Not Null")
   Dim dr2 As DataRow = DataTables("采购计划表").AddNew
    For i As Integer = 0 To nms1.Length -1
       dr2(nms3(i)) = dr1(nms1(i))
    Next
   dr1("过账") = True
Next

相关知识点：

http://www.foxtable.com/help/topics/1533.htm

 

多谢狐爸指点。