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