主题：如何让a表按照b表、c表进行排序呢？

如何让a表按照b表、c表进行排序呢？

篮版，这样变通应该可以：

打算部门表修改值得时候，遍历主表全部替换，现在只会替换当前部门，如何改一下循环每次执行全替换

Select Case  e.DataCol.Name
    Case "单位","部门","排序","代码"
        Dim Filter As String =""
Dim drs As List(Of DataRow)
For Each nr As Row In Tables("部门表").rows
        Filter = "[单位] = '" &e.DataRow("代码")& "'and  [部门] = '" & e.oldvalue & "'"
        drs = DataTables("主表").Select(Filter)
        For Each Nr As String In Nrs

            For Each dr As DataRow In drs
                If dr IsNot Nothing
                    dr("单位")=e.DataRow("代码")
                    dr("部门")=e.newvalue
                    dr("部门排序")=e.DataRow("排序")
                End If
            Next
        Next
End Select