cmd1.Connecti on Name = "user" cmd1.Comm andText = "sel ect uuid from 填报人信息 where [id] = " & cn & " " ' Dim bt1 As DataTable bt1 = cmd1.Execute Reader(True) MessageBox.Show(1) If bt1.datarows.count >0 Then cr("uuid")= bt1.datarows(0)("uuid") MessageBox.Show(2) End If End If bt.Save()