用狐表的方法也行:
Dim cmd As new SQLCommandcmd.Connection Name = "数据源"cmd.CommandText = "select * From {表名} Where [主键] Is Null"Dim dt As DataTable = cmd.ExecuteReaderFor Each dc As DataCol In dt.DataCols output.show(dc.name & ":" & dc.datatype.name)Next