If dr2 Is Nothing Then dr2.DataTable.AddNew 'DR2既然是空,你DR2.datatable 当然会报错空值啊. 你要为哪个表增加行,应该指定表. dr2("cCompany")=dr1("号码")
End If