老师，是外部SQL数据库来的，代码这样修改后会出错。
无法在 System.Int32 和 System.String 上执行“=”操作。
Dim lst As List(Of String)
lst = Connections("AIS20170303202558").GetTableNames
Dim cmd As New SQLCommand
cmd.C
For Each ls As String In lst
cmd.CommandText = "Se lect * From {" & ls & "} "
Dim dto As DataTable = cmd.ExecuteReader
e.Form.Controls("TextBox2").text &= ls & "|" '& c.Name
For Each c As DataCol In dto.DataCols
Dim DR As DataRow = dto.Find(c.name & " = '7.05'" )
If dr IsNot Nothing Then
msgbox(dto.name & " | " & c.name)
End If
Next
Next
加好友 
发短信
Post By：2018/10/11 16:18:00 [显示全部帖子]
