Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动填充数据问题


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

主题：自动填充数据问题
帅哥哟，离线，有人找我吗？
356308762
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		自动填充数据问题  发帖心情 Post By：2020/7/29 15:45:00 [显示全部帖子]

问题：A表统计成本=B表（多个材料组成的成本）+C表（多个工序成本），已经做了A_B，A_C两个关联表。如何在A表增加1行，并填入商品后，在A_C表和A_B表能自动填入我指定的那几个材料和工序，还有指定的数量。
 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		  发帖心情 Post By：2020/7/30 0:53:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
老师您好，A表所有商品是不重复的，而所有商品的材料和工序又都是几乎一样的，只是数量不同。
所以我希望的是从A表输入一个商品，子表A_B表和A_C表能自动输入都是一样的材料和工序，并输入一个默认数量，这样我只要修改部分不同的数量就行了。
您给的参考，我没转过来要怎么来实现这个。
 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		回复：（有点蓝）意思是A表输入商品的时候，自动给其它...  发帖心情 Post By：2020/7/30 12:21:00 [显示全部帖子]

老师您好，我试了下，这样父表A的商品名称不能更改，不然就会在子表又添加一遍数据会重复。

If e.DataCol.name = "商品_名称" AndAlso e.newvalue > "" Then
Dim r As Row = Tables("成品记录.组装工序").addnew还有一个子表（成品记录.组装表）是否可以加进这个代码里，还是再重新录一遍这个代码，改一下？
r("工序_名称") = {"手工绕线" , "焊接1","装配1","粘合","包装1"}这个分隔符应该用什么？试了好几种都会出错。
r("工序_数量") = {"2","1","1","1","1"}
End If
 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		回复：（有点蓝）如果可以改商品名称，您希望怎么做？...  发帖心情 Post By：2020/7/30 14:23:00 [显示全部帖子]

老师，是每个名称一行数据。

 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		回复：（有点蓝）If e.DataCol.name = "商品_名称" An...  发帖心情 Post By：2020/7/30 20:25:00 [显示全部帖子]

非常感谢老师！
现在又出现了一个问题，就是子表会自动录2遍。我只要1遍就行了。

If e.DataCol.name = "商品_名称" AndAlso e.newvalue > "" Then
    Dim s1() As String = {"手工绕线","焊接1","装配1","粘合","包装1"}
    Dim s2() As String ={"2","2","1","1","1"}
    For i As Integer = 0 To s1.length - 1
        Dim r As Row = Tables("成品记录.组装工序").addnew
        r("工序_名称") = s1(i)
        r("工序_数量") = s2(i)
    Next
    Dim s3() As String = {"111","222","333"}
    Dim s4() As String ={"2","2","1"}
    For i As Integer = 0  To s1.length - 3（这句是什么意思？试了下，这个只能设置3以上，不然会出现超出范围的提示）
        Dim r As Row = Tables("成品记录.组装单").addnew
        r("子件_名称") = s3(i)
        r("子件_数量") = s4(i)
    Next
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		回复：（有点蓝）    Dim s3() As String =...  发帖心情 Post By：2020/7/30 20:52:00 [显示全部帖子]

老师您好，那它的重复输入要怎么解决啊？只要输入名称1，2，3名称1遍，3行数据就行了。现在出现的结果却是1，2，3，1，2，3，6行数据。

 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		回复：（有点蓝）按10楼方法改呀  发帖心情 Post By：2020/7/30 22:13:00 [显示全部帖子]

图片点击可在新窗口打开查看我就是复制您的这个录的，可不知道怎么，还是会出现重复呢。。。。

 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		回复：（有点蓝）请上传实例说明  发帖心情 Post By：2020/7/31 0:13:00 [显示全部帖子]

好的老师

 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		回复：（356308762）回复：（有点蓝）按10楼方法改呀  发帖心情 Post By：2020/7/31 0:24:00 [显示全部帖子]

1111
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自制管理项目.table
 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：27 积分：310 威望：0 精华：0 注册：2017/7/6 11:09:00 		回复：（有点蓝）下面这段代码的原因，首先选择"商品_...  发帖心情 Post By：2020/7/31 10:53:00 [显示全部帖子]

谢谢老师！！！图片点击可在新窗口打开查看
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询