- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]自动填充数值代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=21244)
-- 发布时间：2012/7/6 12:34:00
-- [求助]自动填充数值代码
在存货统计表里，对未过账且客户名称不为空的记录，是出仓的将商品名称、规格、客户名称、业务日期、出仓等数据自动填充到订单表对应的商品名称、规格、客户名称、出仓日期、出仓数量，并在过账里打上记号;是进仓的将商品名称、规格、客户名称、业务日期、进仓等数据自动填充到采购表对应的商品名称、规格、客户名称、车务日期、采购数量，并在过账里打上记号。以上代码如何编写恳请各位赐教，谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实验上传文件.zip |
-- 发布时间：2012/7/6 15:40:00
--
在命令窗口执行下面的代码，就能完全实现你的要求：
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
-- 发布时间：2012/7/6 15:55:00
--
相关知识点：
http://www.foxtable.com/help/topics/1533.htm
-- 发布时间：2012/7/8 17:51:00
--
多谢狐爸指点。