加上别名，不然同名列就是这样了
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C">cmd.CommandText ="Select {表A}.[第二列],{表B}.第二列 From {表A} Inner JOIN {表B} ON {表B}.[第一列] = {表A}.[第一列]"
dt = cmd.ExecuteReader
For Each dc As DataCol In dt.DataCols
msgbox(dc.name)
Next
加上别名
cmd.CommandText ="Select {表A}.[第二列] as a,{表B}.第二列 as b From {表A} Inner JOIN {表B} ON {表B}.[第一列] = {表A}.[第一列]"
dt = cmd.ExecuteReader
Dim dr As DataRow
MessageBox.Show(0)
dr =dt.Find("a='测试'")
If dr IsNot Nothing Then
MessageBox.Show(1)
MessageBox.Show(dr("a"))
End If
[此贴子已经被作者于2020/2/11 23:00:00编辑过]
加好友 
发短信
Post By：2020/2/11 20:59:00 [显示全部帖子]
