Foxtable(狐表) → 用户栏目 → 专家坐堂 → 引用数据


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

主题：引用数据
美女呀，离线，留言给我吧！
zhangning
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		引用数据  发帖心情 Post By：2016/11/23 9:21:00 [只看该作者]

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


开发者   密码：qdkf

目的是：在“PEQ数据”表中将“部品工程项目”相同的，从“工程和工时”里的时间，引入“绩效工时H”列里，
例如：“PEQ数据”表中将“部品工程项目”，是B7337210150JMC1装，则去“工程和工时”表里，找B7337210150J MC1
的装列的数据 即 33.8 单位是分，需要转换成小时。

“部品工程项目”最后一个字是 “段” 的话，就去引用“段”列的数据，
是机的话，就引用“机”列的数据，“装”和“毛”类推。

新手不会写代码，麻烦老师，帮写写代码呗，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/23 9:56:00 [只看该作者]

DataColChanged事件

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "部品ID","工程","项目略"
        If dr.IsNull("部品ID") OrElse dr.IsNull("工程") OrElse dr.IsNull("项目略") Then
            dr("部品工程项目")= Nothing
            dr("绩效工时H")= Nothing
        Else
            dr("部品工程项目") = dr("部品ID") + dr("工程") + dr("项目略")
            Dim drfind As DataRow = DataTables("工程和工时").Find(CExp("部品ID='{0}' and 工程='{1}'",dr("部品ID") ,dr("工程")))
            If drfind IsNot Nothing AndAlso drfind.IsNull(dr("项目略")) = False Then
                dr("绩效工时H")= drfind(dr("项目略")) / 60
            End If
        End If
        
End Select
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/11/23 11:37:00 [只看该作者]

非常好用，解决大问题了，非常感谢有点蓝老师！

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