For Each dc As DataCol In datatables("表A").DataCols
dim dr as datarow= DataTables("表A").Find(dc.name= '" & m & "'")
..................... ......................... Next2楼的好啊~