Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表输入


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

主题：[求助]表输入
帅哥哟，离线，有人找我吗？
5301zsz
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1699 威望：0 精华：0 注册：2018/10/13 9:02:00 		[求助]表输入  发帖心情 Post By：2019/5/28 15:00:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生产记录表.rar

老师好附件的生产记录表在DataColChanged如何设置
1：当表金工生产记录表选择下单情况_料号及生产计划_工序列选1时，生产计划_内容。生产计划_内容生产计划_机台、生产计划_车间定额、生产计划_允废率、生产计划_准备工时自动从表产品加工工序的工序1的工序1_内容、工序1_机台、工序1_准备工时、工序1_定额、工序1_允废率的信息转过来。
2：当表金工生产记录表选择下单情况_料号及生产计划_工序列选2时，生产计划_内容。生产计划_内容生产计划_机台、生产计划_车间定额、生产计划_允废率、生产计划_准备工时自动从表产品加工工序的工序1的工序2_内容、工序2_机台、工序2_准备工时、工序2_定额、工序2_允废率的信息转过来。
3：当表金工生产记录表选择下单情况_料号及生产计划_工序列选3时，生产计划_内容。生产计划_内容生产计划_机台、生产计划_车间定额、生产计划_允废率、生产计划_准备工时自动从表产品加工工序的工序1的工序3_内容、工序3_机台、工序3_准备工时、工序3_定额、工序3_允废率的信息转过来。依次类推到9.
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/28 15:13:00 [只看该作者]

根据你的选择，动态得到列名即可，如

 

Dim gx = e.datarow("工序")

msgbox(gx)

Dim fdr As DataRow = DataTables("某表").find("条件")

e.datarow("允废率") = fdr("工序" & gx & "_允废率")

e.datarow("内容") = fdr("工序" & gx & "_内容")
 回到顶部
帅哥哟，离线，有人找我吗？
5301zsz
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1699 威望：0 精华：0 注册：2018/10/13 9:02:00 		  发帖心情 Post By：2019/5/28 15:37:00 [只看该作者]

收到，谢谢老师，我试试，有问题在请教！

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


加好友 发短信
等级：幼狐 帖子：186 积分：1699 威望：0 精华：0 注册：2018/10/13 9:02:00 		  发帖心情 Post By：2019/5/28 22:19:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试2.foxdb

老师好，麻烦帮我测试一下，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/5/28 22:49:00 [只看该作者]

不要只会抄代码，我们给的一般都是处理问题的思路，不一定是完整的代码，学会在理解的基础上使用。

先不管上面的功能怎么实现，先学会datacolchanged事件应该怎么用



稍候我再给出具体的代码
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/5/28 23:09:00 [只看该作者]

Select Case e.DataCol.Name
    Case "下单情况_料号","生产计划_工序号"
        If e.DataRow.IsNull("下单情况_料号") OrElse e.DataRow.IsNull("生产计划_工序号")
            e.DataRow("生产计划_允废率") = Nothing
            '剩下自己补充完整
        Else
            Dim gx = e.DataRow("生产计划_工序号")
            Dim fdr As DataRow = DataTables("产品加工工序").find("物料料号 = '" & e.DataRow("下单情况_料号") & "'")
            If fdr IsNot Nothing
                e.DataRow("生产计划_允废率") = fdr("工序" & gx & "_允废率")
                e.DataRow("生产计划_内容") = fdr("工序" & gx & "_内容")
                e.DataRow("生产计划_机台") = fdr("工序" & gx & "_机台")
                e.DataRow("生产计划_定额") = fdr("工序" & gx & "_定额")
                e.DataRow("生产计划_准备工时") = fdr("工序" & gx & "_准备工时")
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
5301zsz
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1699 威望：0 精华：0 注册：2018/10/13 9:02:00 		  发帖心情 Post By：2019/5/29 5:01:00 [只看该作者]

谢谢蓝老师的指导！这么晚了又及时回复，辛苦了！

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


加好友 发短信
等级：幼狐 帖子：186 积分：1699 威望：0 精华：0 注册：2018/10/13 9:02:00 		  发帖心情 Post By：2019/5/30 23:01:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试2.foxdb

蓝老师好，我用您的代码输入后测试还是不行。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/30 23:33:00 [只看该作者]

我测试没问题。

 

输入 生产计划_工序号 2

 

输入 下单情况_料号 14B1101
 回到顶部
帅哥哟，离线，有人找我吗？
5301zsz
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1699 威望：0 精华：0 注册：2018/10/13 9:02:00 		  发帖心情 Post By：2019/5/30 23:41:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试-5-30.rar

老师好，请看附件截图，输入后不会自动导入各工序内容。
 回到顶部
总数 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.05103 秒, 8 次数据查询