查询全部表全部列,查找
For Each t As Table In Tables For Each c As Col In t.Cols Dim i = t.FindRow("convert(" & c.name & ",'System.String')" & " = '7.05'") If i >= 0 Then msgbox(t.name & " " & i & " " & c.name) End If NextNext