Foxtable(狐表)用户栏目专家坐堂 → [求助]程序编码问题


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

主题:[求助]程序编码问题

帅哥哟,离线,有人找我吗?
yiyinggeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:103 积分:857 威望:0 精华:0 注册:2013/3/11 16:42:00
[求助]程序编码问题  发帖心情 Post By:2013/4/3 18:28:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工资核算02.foxdb


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

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

请教,在工资计算窗口中分别绑定“工资计算表.工资明细表”以及工资明细表。

实现的问题:在窗口下边的明细表中,如果工资类型为 计件,那么根据上边的分厂工段自动匹配工资标准表中的计件标准,零工标准为空。

                如果工资类型为零工根据上边的分厂工段自动匹配工资标准表中的零工标准,计件标准为空。

 

水平太浅,自己实在写不出编码。


 回到顶部
帅哥哟,离线,有人找我吗?
yiyinggeng
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:103 积分:857 威望:0 精华:0 注册:2013/3/11 16:42:00
  发帖心情 Post By:2013/4/3 20:54:00 [只看该作者]

顶,有人会吗。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

工资明细表的DataColChanged事件:

 

Select Case e.DataCol.name
    Case "分厂","工段","日期" ,"工资类型"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("分厂") = False AndAlso dr.IsNull("工段") = False AndAlso dr.IsNull("日期") =False Then
            Dim pr As DataRow = DataTables("工资标准").Find("分厂 = '" & dr("分厂") & "' and 工段  = '" & dr("工段") & "' And 执行日期 <= #" & dr("日期") & "#", "执行日期 Desc")
            If pr IsNot Nothing Then
                If dr("工资类型")  =  "计件" Then
                    dr("计件标准")  = pr("计件标准")
                ElseIf dr("工资类型")  =  "零工" Then
                    dr("零工标准")  = pr("零工标准")
                End If
            End If
        End If
End Select


 回到顶部