如何实现判断空表执行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何实现判断空表执行？

需求：

如果"表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))

如果"表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))

MessageBox.Show("复制完成！")

DataTables("表B").RemoveFor("")

审核列发现任意一行，为空或不为空，所有的

是要写窗口上，“检测”按键的单击，去实现上面需求

需求：

如果"表B"为空，"表A"的数据复制到"表B"

如果"表B"不为空，而且，审核为空，提示请审核

如果"表B"不为空，而且，审核不为空，"表B"的数据复制"表C",完成时，提示复制完成后，清空"表B"

如果"表B"为空，"表A"的数据复制到"表B",

If DataTables("表B").DataRows.Count = 0 Then

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))

如果"表B"不为空，而且，审核为空，提示请审核

ElseIf DataTables("表B").DataRows(0).IsNull("审核") Then

MessageBox.Show("请审核!")

如果"表B"不为空，而且，审核不为空，"表B"的数据复制"表C",完成时，提示复制完成后，清空"表B"

ElseIf DataTables("表B").DataRows(0).IsNull("审核"不为空) Then

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))

MessageBox.Show("复制完成!")

DataTables("表B").RemoveFor("")

Else

End If

老师，大致代码上面，第一段代码执行是可以，后面审核为空与不为空有问题

1，如果"表B"不为空，而且，审核不为空，"表B"的数据复制"表C",完成时，提示复制完成后，清空"表B"

ElseIf DataTables("表B").DataRows(0).IsNull("审核"不为空) Then，，这个如果"表B"不为空，而且，审核不为空，为会写

主题：如何实现判断空表执行？