主题：[求助]

 你的多列，规定是按照顺序排列的吗？只有规定按照次序，才可能实现

 参考代码

 

Dim name As String = "李四"
Dim fdr As DataRow = DataTables("表A").Find("第三列 like '*" & name & "*'")
If fdr IsNot Nothing Then
    Dim ary1() As String = fdr("第三列").split(",")
    Dim idx As Integer = array.Indexof(ary1, name)
    Dim ary2() As String = fdr("第四列").split(",")
    msgbox(ary2(idx))
End If

  看4楼代码。