[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

以下是引用evolymft在2017/5/11 9:40:00的发言：
再请教老师：相同的功能可以用SQL语句用查询表生成吗？

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

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

以下是引用evolymft在2017/5/11 14:03:00的发言：
另外再请你帮忙改一下表结构，能够达到目的就行啦。

不要用sql语句，直接用代码查吧。

你这样设计表也行，可以减少数据录入，就是检索麻烦一点而已。

表结构改变，就是把列，改成行，一个等级、一个标准，用一行记录。

select 发薪年月, a.薪级等级, iif(发薪年月>=201607, [201607标准], iif(发薪年月>=201410, [201410标准],iif(发薪年月>=200607, [200607标准],null))) as 薪级工资 from {工资库} as a inner join {薪级工资} as b on val(a.薪级等级) = val(b.薪级等级) where a.薪级等级 is not null

主题：[求助]