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

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

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

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

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

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

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

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

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

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

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

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

谢谢了