给主键列赋值,定位
Dim ndr = datatables("表A").addnew()
ndr("主键") = "abc"
Tables("表A").Position = Tables("表A").Rows.Count-1