以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]保存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127118)
--  作者：江南小镇
--  发布时间：2018/11/6 10:17:00
--  [求助]保存
 老师好，下面是个保存按钮好像有地方不对。
If  Tables("入库") .Rows.count = 0  AndAlso     Tables("入库.入库管理") .Rows.count = 0  Then
    Return
End If
If Tables("入库").Current.IsNull("进货单编号") = False  AndAlso  Tables("入库.入库管理") .Rows.count = 0  Then
    Tables("入库").Current.Delete
    Tables("入库").save()
    Tables("入库管理").save()
End If
--  作者：有点甜
--  发布时间：2018/11/6 10:25:00
--  

If  Tables("入库") .Rows.count = 0  AndAlso     Tables("入库.入库管理") .Rows.count = 0  Then
    Return
End If
If Tables("入库").Current.IsNull("进货单编号") = False  AndAlso  Tables("入库.入库管理") .Rows.count = 0  Then
    Tables("入库").Current.Delete
End If

 

Tables("入库").save()
Tables("入库管理").save()