- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]麻烦帮我看一下这段代码的问题出在哪里了呢，谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60393)
-- 发布时间：2014/11/24 11:31:00
-- [求助]麻烦帮我看一下这段代码的问题出在哪里了呢，谢谢
这段是一个删除代码，希望当前行的审核人格中如果有数据的话，提示“该记录已审核,请反审核后再删除!”，如果没有数据的话，执行下面删除的代码。现在出现一个问题，就是无论审核人格中有没有数据，都提示“该记录已审核,请反审核后再删除!”
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
-- 发布时间：2014/11/24 11:32:00
--
[此贴子已经被作者于2014-11-24 11:32:35编辑过]
-- 发布时间：2014/11/24 11:33:00
--
If Tables("订单主表").Current IsNot Nothing Then
If Tables("订单主表").Current.IsNull("审核人") = False Then
MessageBox.Show("该记录已审核,请反审核后再删除!")
Else
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
-- 发布时间：2014/11/24 11:36:00
--
还是一样的呢？
此主题相关图片如下：qq截图20141124113823.png
-- 发布时间：2014/11/24 11:38:00
--
你表名写错了，你看你是不是用了副本表
-- 发布时间：2014/11/24 11:40:00
--
是的，可以了，谢谢有点甜！