主题：[求助]工资标准调用，以及查看工资标准问题

此主题相关图片如下：qq截图20130331170558.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

 

工资版本是每次调整工资设定时用的。

人员表中不想直接带工资标准。（因为工资每年或不到一年就要调整）

请教1. 在工资计算表中，如何根据日期（这里的日期是工资计算当天的工资，工资标准中的日期是开始执行的日期）、工厂、工段从工资标准中调用对应的工资标准数。

2. 如果想查询一个工人，现在或者是以前的工资标准，怎么设定（建立一个窗口，表如何关联，人员表中不想直接带工资标准，如果带的话，日期也要带，人员太多，如果工资版本调整几次，人员表中数据量太大了。）

 

工资版本是每次调整工资设定时用的。

人员表中不想直接带工资标准。（因为工资每年或不到一年就要调整）

请教1. 在工资计算表中，如何根据日期（这里的日期是工资计算当天的工资，工资标准中的日期是开始执行的日期）、

工厂、工段从工资标准中调用对应的工资标准数。

2. 如果想查询一个工人，现在或者是以前的工资标准，怎么设定（建立一个窗口，表如何关联，人员表中不想直接带工资标准，如果带的话，日期也要带，人员太多，如果工资版本调整几次，人员表中数据量太大了。）

第一个是不是这样，第二个你如果都不带工资标准，你工资计算就很麻烦了，暂时没想到怎么解决

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5(1).table

2.  可以筛选工资计算表姓名为该员工的所有信息 然后按日期排序即可！

呵呵,xyt是不是传错文件了，你的文件没有代码啊。

 

1、第一文件，将工资计算表的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
                dr("工资标准")  = pr("工资标准")    
            End If
        End If
End Select

 

2、第二个问题，确实不好办，要查询历史数据，就必须记录历史数据，但是你这里没有记录。一个员工，可以不同时期在不同的岗位。

谢谢了