主题：[求助]

请拿上传的项目说话。在哪个表？没看到

项目已传到十五楼请老师查看。

我知道在15楼。我问的是有3个标准，怎么判断取哪个？还是随便取一个

职工姓名	年月	等级	数据
70	201301	17	341	标准1
70	201302	17	341	标准1
70	201303	17	341	标准1
70	201304	17	341	标准1
70	201305	17	341	标准1
70	201306	17	341	标准1
70	201307	17	341	标准1
70	201308	17	341	标准1
70	201309	17	341	标准1
70	201310	17	341	标准1
70	201311	18	365	标准1
70	201312	18	365	标准1
70	201401	18	365	标准1
70	201402	18	365	标准1
70	201403	18	365	标准1
70	201404	18	365	标准1
70	201405	18	365	标准1
70	201406	19	391	标准1
70	201407	19	391	标准1
70	201408	19	391	标准1
70	201409	19	391	标准1
70	201410	19	391	标准1
70	201411	19	391	标准1
70	201412	19	391	标准1
70	201501	19	391	标准1
70	201502	19	391	标准1
70	201503	19	391	标准1
70	201504	19	391	标准1
70	201505	19	391	标准1
70	201506	19	391	标准1
70	201507	19	765	标准2
70	201508	19	765	标准2
70	201509	19	765	标准2
70	201510	20	817	标准2
70	201511	20	817	标准2
70	201512	20	817	标准2
70	201601	20	817	标准2
70	201602	20	817	标准2
70	201603	20	817	标准2
70	201604	20	817	标准2
70	201605	20	817	标准2
70	201606	21	874	标准2
70	201607	21	1099	标准3
70	201608	21	1099	标准3
70	201609	21	1099	标准3
70	201610	21	1099	标准3
70	201611	21	1099	标准3
70	201612	21	1099	标准3
70	201701	21	1099	标准3
70	201702	21	1099	标准3

最后一列就是标准，老师。

200607是标准1，201410是标准2，201607是标准3。

Dim dt As DataTable = DataTables("工资库")
Dim dt1 As DataTable = DataTables("薪级工资")
Dim dt2 As DataTable = DataTables("岗位工资")
For Each dr As DataRow In dt.Select("")
    Dim fdr As DataRow = dt1.Find("薪级等级 = '" & dr("薪级等级") & "'")
    If fdr Is Nothing Then
        dr("薪级工资") = Nothing
    Else
        Dim str As String = ""
        For Each c As DataCol In dt1.DataCols
            If c.name.EndsWith("标准") Then
                Dim s As String = c.Name.Replace("标准", "")
                If dr("发薪年月") > s  Then
                    str = c.name
                End If
            End If
        Next
        If str > "" Then
            'dr("备注") = str
            dr("薪级工资") = fdr(str)
        End If
    End If
    fdr = dt2.Find("岗位等级 = '" & dr("岗位等级") & "'")
    If fdr Is Nothing Then
        dr("薪级工资") = Nothing
    Else
        Dim str As String = ""
        For Each c As DataCol In dt2.DataCols
            If c.name.EndsWith("岗位工资") Then
                Dim s As String = c.Name.Replace("_岗位工资", "").Replace("事业_", "")
                If dr("发薪年月") > s  Then
                    str = c.name
                End If
            End If
        Next
        If str > "" Then
            dr("备注") = str
            dr("薪级工资") = fdr(str)
        End If
    End If
   
Next

谢谢老师，让你加班了

再请教老师：相同的功能可以用SQL语句用查询表生成吗？

 

用sql语句会更麻烦。1、你的列不是固定的，标准在增加；2、你的列名也不是固定的。所以只能循环所有列去判断。

 

你可以规范下你的表结构。用这样的列 【等级】【日期】【值】，如果这样，就可以很轻易的根据等级和日期查询到对应的值。

谢谢??。请你帮忙把15楼贴子删除，暴露隐私了！