这段是一个删除代码,希望当前行的审核人格中如果有数据的话,提示“该记录已审核,请反审核后再删除!”,如果没有数据的话,执行下面删除的代码。现在出现一个问题,就是无论审核人格中有没有数据,都提示“该记录已审核,请反审核后再删除!”
If Tables("订单主表").Current("审核人") <> "nothing" Then
MessageBox.Show("该记录已审核,请反审核后再删除!")
Else
If Tables("订单主表").Current IsNot Nothing Then
If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
DataTables("订单明细表").SQLDeleteFor("客户订单号 = '" & Tables("订单主表").Current("客户订单号") & "'")
Tables("订单主表").Current.Delete
DataTables("订单主表").save
DataTables("订单明细表").save
End If
End If
End If