If Tables("统计表10").Rows.Count = 0 Then
MessageBox.Show("没有错误!")
Else
Dim dr As Row = Tables("统计表10").current()
MessageBox.Show("请修改编号:" & dr("编号"))
End If
改为:
If Tables("统计表10").Rows.Count = 0 Then
MessageBox.Show("没有错误!")
Else
MessageBox.Show("请修改编号:" & datatables("统计表10").GetComboListString("编号"))
End If