参考
dr=dt1.Find("表名='" & e.DataTable.Name & "' And 列名='" & dc.name & "' and [使用表] is not null and [使用表对应列名] Is Not null")