主题：按照顺序取参数

贴出来的，只是简单的举例，实际需求可能比这复杂的多，不如把第一列、第二列的实际数据贴几行出来，一并给你解决。

If e.DataCol.Name = "第一列" Then
    Dim str() As String = {"已结账","结账中","未结账"}
    Dim drs As List (Of String) = DataTables("表B").GetValues("第二列","第一列 = '" & e.DataRow("第一列") & "' And 第一列 Is Not Null And 第二列 Is Not Null")
    For Each s As String In str
        For Each dr As String In drs
            If s = dr Then
                e.DataRow("第二列") = s
                Return
            End If
        Next
    Next
End If

本表e开头（这里就是表A），其他表有具体名称。

If e.DataCol.Name = "第一列" Then  '是表A的第一列
DataTables("表B").GetValues("第二列","第一列 = '"  '肯定是指表B的第二、第一列。

还是多看帮助，不是推卸，帮助比俺讲的好啊，俺也是反复看帮助过来的，不能急。

就把你们的真实的项目发上来，先让人帮你做好管用，以后有空再看帮助慢慢学。

你只举例子，别人做好了，你又看不懂，不能挪用到自己的项目中。