主题：[求助]知道数值，不知道数据表，不知字段名，如何查找

查询全部表全部列，查找

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
    Next
Next

Dim DR As DataRow = dto.Find(c.name & " = '7.05'"      )

改成

Dim DR As DataRow = dto.Find("convert(" & c.name & ",'System.String') = '7.05'")