Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多列填充


  共有3370人关注过本帖树形打印复制链接

主题：多列填充
帅哥哟，离线，有人找我吗？
BATASC750206
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1377 威望：0 精华：0 注册：2018/7/18 18:48:00 		多列填充  发帖心情 Post By：2021/5/28 14:02:00 [显示全部帖子]

有“MRP查询”和“MRP物料需求”这两个表，两表没有建立关联，在”MRP物料需求"表事件数据DataColChanged输入以下代码，在”MRP物料需求“表中不会自动填充"MRP查询“表的内容，请问要如何解决？
Dim Cols1() As String = {"订单号","客户名称","产品代码","子件代码","子件名称","子件规格","下单日期","订单交期","订单数量","生产数量","单位","单用量","材质"}
Dim Cols2() As String = {"订单号","客户名称","产品代码","子件代码","子件名称","子件规格","下单日期","订单交期","订单数量","生产数量","单位","单用量","材质"}
For Each dr1 As DataRow In DataTables("MRP查询").Select("[生产数量] > 0")
    Dim dr2 As DataRow = DataTables("MRP物料需求").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
BATASC750206
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1377 威望：0 精华：0 注册：2018/7/18 18:48:00 		  发帖心情 Post By：2021/5/28 16:32:00 [显示全部帖子]

您好，那能否帮忙写个完整代码？谢谢！上面的代码我放在菜单按钮Click里面出现错误，按钮的代码要怎么改？谢谢！
[此贴子已经被作者于2021/5/28 16:36:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
BATASC750206
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1377 威望：0 精华：0 注册：2018/7/18 18:48:00 		  发帖心情 Post By：2021/5/28 16:43:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
这两个表，因为第一个表是查询表，不能编辑，所以想把“MRP查询”表，自动复制生成“MRP物料需求”表，请问要怎么弄？
[此贴子已经被作者于2021/5/28 16:43:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
BATASC750206
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1377 威望：0 精华：0 注册：2018/7/18 18:48:00 		  发帖心情 Post By：2021/5/28 20:40:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：4.png
图片点击可在新窗口打开查看
提示错误，请指教，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
BATASC750206
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1377 威望：0 精华：0 注册：2018/7/18 18:48:00 		手工编码填充数据  发帖心情 Post By：2021/6/18 9:03:00 [显示全部帖子]

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

以上代码放在一个菜单按钮事件中，点击一下这个按钮，会填充一次所有的相关信息，点击第二次又重复填充一次所有的信息。

请问如何做到，以前有填充过的信息，在重复点击这个按钮后不会再重复填充？请问要如何做？
 回到顶部
帅哥哟，离线，有人找我吗？
BATASC750206
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1377 威望：0 精华：0 注册：2018/7/18 18:48:00 		  发帖心情 Post By：2021/6/18 9:41:00 [显示全部帖子]

Dim Vals As List(of String())
Vals = DataTables("MRP查询").GetValues("订单号|客户名称|产品代码|子件代码|子件名称|子件规格|下单日期|订单交期|订单数量|生产数量|单位|单位用量|材质")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("MRP物料需求").find("订单号='" & Vals(i)(0) & "' and 客户名称='" & Vals(i)(1) & "'and 产品代码='" & Vals(i)(2) & "'and 子件代码='" & Vals(i)(3) & "'and 子件名称='" & Vals(i)(4) & "'and 子件规格='" & Vals(i)(5) & "'and 下单日期='" & Vals(i)(6) & "'and 订单交期='" & Vals(i)(7) & "'and 订单数量='" & Vals(i)(8) & "'and 生产数量='" & Vals(i)(9) & "'and 单位='" & Vals(i)(10) & "'and 单位用量='" & Vals(i)(11) & "'and 材质='" & Vals(i)(12) & "'")
If dr Is Nothing Then
dr = DataTables("MRP物料需求").AddNew()
    dr("订单号") = Vals(i)(0)
    dr("客户名称") = Vals(i)(1)
    dr("产品代码") = Vals(i)(2)
    dr("子件代码") = Vals(i)(3)
    dr("子件名称") = Vals(i)(4)
    dr("子件规格") = Vals(i)(5)
    dr("下单日期") = Vals(i)(6)
    dr("订单交期") = Vals(i)(7)
    dr("订单数量") = Vals(i)(8)
    dr("生产数量") = Vals(i)(9)
    dr("单位") = Vals(i)(10)
    dr("单位用量") = Vals(i)(11)
    dr("材质") = Vals(i)(12)
End If
Next
按您的方式，在按钮中加入以上代码，点击按钮后还是会重复填充已填充的内容。请问代码就问题吗
最好加一个条件“[生产数量]>0
 回到顶部
帅哥哟，离线，有人找我吗？
BATASC750206
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1377 威望：0 精华：0 注册：2018/7/18 18:48:00 		  发帖心情 Post By：2021/6/18 10:35:00 [显示全部帖子]

Dim Vals As List(of String())
Vals = DataTables("MRP查询").GetValues("订单号|客户名称|产品代码|子件代码|子件名称|子件规格|下单日期|订单交期|订单数量|生产数量|单位|单位用量|材质")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("MRP物料需求").find("订单号='" & Vals(i)(0) & "' and 客户名称='" & Vals(i)(1) & "'and 产品代码='" & Vals(i)(2) & "'and 子件代码='" & Vals(i)(3) & "'and 子件名称='" & Vals(i)(4) & "'and 子件规格='" & Vals(i)(5) & "'and 下单日期='" & Vals(i)(6) & "'and 订单交期='" & Vals(i)(7) & "'and 订单数量='" & Vals(i)(8) & "'and 生产数量='" & Vals(i)(9) & "'and 单位='" & Vals(i)(10) & "'and 单位用量='" & Vals(i)(11) & "'and 材质='" & Vals(i)(12) & "'")
If dr Is Nothing Then
dr = DataTables("MRP物料需求").AddNew()
    dr("订单号") = Vals(i)(0)
    dr("客户名称") = Vals(i)(1)
    dr("产品代码") = Vals(i)(2)
    dr("子件代码") = Vals(i)(3)
    dr("子件名称") = Vals(i)(4)
    dr("子件规格") = Vals(i)(5)
    dr("下单日期") = Vals(i)(6)
    dr("订单交期") = Vals(i)(7)
    dr("订单数量") = Vals(i)(8)
    dr("生产数量") = Vals(i)(9)
    dr("单位") = Vals(i)(10)
    dr("单位用量") = Vals(i)(11)
    dr("材质") = Vals(i)(12)
End If
Next
主要问题是，点多少次按钮，就会重复填充多少次所有内容，我要的是”填充过的内容“，不论点击多少次都不会重复填充。
请指教！谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
BATASC750206
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1377 威望：0 精华：0 注册：2018/7/18 18:48:00 		查询表条件设置  发帖心情 Post By：2021/6/20 9:53:00 [显示全部帖子]

查询表如何在“条件”内设置按[下单日期]=系统日期，自动生成当天的查询表？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询