如何实现判断空表执行？
需求：
如果"表B"为空，"表A"的数据复制到"表B"
如果"表B"不为空，而且，审核为空，提示请审核
如果"表B"不为空，而且，审核不为空，"表B"的数据复制"表C",完成时，提示复制完成后，清空"表B"
下面是思路，请老师，帮完善，谢谢，
如果"表B"为空，"表A"的数据复制到"表B"
Dim Cols1() As String = {"列一","列二","列三"}
Dim Cols2() As String = {"列一","列二","列三"}
For Each dr1 As DataRow In DataTables("表A").Select("[审核] = '已审核'")
Dim dr2 As DataRow = DataTables("表B").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
如果"表B"不为空，而且，审核为空，提示请审核
MessageBox.Show("请审核！")
如果"表B"不为空，而且，审核不为空，"表B"的数据复制"表C",完成时，提示复制完成后，清空"表B"
Dim Cols1() As String = {"列一","列二","列三"}
Dim Cols2() As String = {"列一","列二","列三"}
For Each dr1 As DataRow In DataTables("表B").Select("[审核] = '已审核'")
Dim dr2 As DataRow = DataTables("表C").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
MessageBox.Show("复制完成！")
DataTables("表B").RemoveFor("")
加好友 
发短信
Post By：2021/6/29 14:35:00 [只看该作者]
