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


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

主题：自动填充数据问题
帅哥哟，离线，有人找我吗？
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表能自动填入我指定的那几个材料和工序，还有指定的数量。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112396 积分：572248 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/29 15:48:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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表能自动输入都是一样的材料和工序，并输入一个默认数量，这样我只要修改部分不同的数量就行了。
您给的参考，我没转过来要怎么来实现这个。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112396 积分：572248 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/30 9:01:00 [只看该作者]

意思是A表输入商品的时候，自动给其它表新增行？到datacolchanged事件处理

if e.datacol.name = "商品" andalso e.newvalue > "" then
dim r as row = tables("xx子表").addnew
r("第一列") = xxx
r("第二列") = xxx
end if
 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112396 积分：572248 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/30 14:03:00 [只看该作者]

如果可以改商品名称，您希望怎么做？

如果还有另外一个表，重复复制中间三行代码使用即可。

分隔符是什么意思，每个名称一行数据？还是指多值字段？
 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：超级版主 帖子：112396 积分：572248 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/30 14:57:00 [只看该作者]




If e.DataCol.name = "商品_名称" AndAlso e.newvalue > "" Then
dim s1() as string = {"手工绕线" , "焊接1","装配1","粘合","包装1"}
dim s2() as string ={"2","1","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

End If
 回到顶部
帅哥哟，离线，有人找我吗？
356308762
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112396 积分：572248 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/30 20:28:00 [只看该作者]

    Dim s3() As String = {"111","222","333"}
    Dim s4() As String ={"2","2","1"}
    For i As Integer = 0  To s3.length - 1（这句是什么意思？试了下，这个只能设置3以上，不然会出现超出范围的提示）
        Dim r As Row = Tables("成品记录.组装单").addnew
        r("子件_名称") = s3(i)
        r("子件_数量") = s4(i)
    Next
 回到顶部
总数 18 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.04688 秒, 4 次数据查询