如何实现判断空表执行？ - 专家坐堂 - 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("")

行数为0就是空表：http://www.foxtable.com/webhelp/topics/0419.htm

if DataTables("表B").DataRows.Count = 0 then

msgbox("空表")

end if

审核为空是是哪一行审核为空？还是所有行审核都为空

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

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

为空条件

For Each dr1 As DataRow In DataTables("表B").Select("[审核] is null")

不为空条件

For Each dr1 As DataRow In DataTables("表B").Select("[审核] is not null")

需求：

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

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

……

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

Else

If DataTables("表B").find("审核 is null") isnot nothing Then

MessageBox.Show("请审核!")

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

Else

Dim Cols1() As String = {"列一","列二","列三"}

Dim Cols2() As String = {"列一","列二","列三"}

……

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

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

If DataTables("表B").find("审核 is null") isnot nothing Then如果为空

MessageBox.Show("请审核!")

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

Else否则不为空

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