- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 这段代码提示有问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129774)
-- 发布时间：2019/1/5 21:50:00
-- 这段代码提示有问题
If Tables("采购主表").current.DataRow.RowState <> DataRowState.Unchanged Then
Dim Result As DialogResult
Result = MessageBox.Show("是否保存", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
\'MessageBox.Show("不错,说明你已经认真学习了.","提示")
If Tables("采购主表").current("供应商") = Nothing Then
msgbox("请先输入供应商")
Return ""
End If
For Each r As Row In Tables("采购主表.采购明细表").rows
If r("名称") = Nothing Then
msgbox("请先输入名称")
Return ""
End If
Next
With Tables("采购主表")
If .Current IsNot Nothing Then
.Current.Save()
End If
End With
DataTables("采购明细表").Save()
ElseIf result = DialogResult.No
Tables("采购主表").Current.Delete()
Else
Return ""
End If
End If
Forms("入库单").Close()
Forms("主窗口").Open()
保存时提示：
此主题相关图片如下：qq截图20190105214852.png
此主题相关图片如下：qq截图20190105214852.png-- 发布时间：2019/1/5 21:53:00
--
return
-- 发布时间：2019/1/6 21:17:00
--
改成
If Tables("采购主表").current.DataRow.RowState <> DataRowState.Unchanged Then
Dim Result As DialogResult
Result = MessageBox.Show("是否保存", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
\'MessageBox.Show("不错,说明你已经认真学习了.","提示")
If Tables("采购主表").current("供应商") = Nothing Then
msgbox("请先输入供应商")
Return ""
End If
For Each r As Row In Tables("采购主表.采购明细表").rows
If r("名称") = Nothing Then
msgbox("请先输入名称")
Return ""
End If
Next
With Tables("采购主表")
If .Current IsNot Nothing Then
.Current.Save()
End If
End With
DataTables("采购明细表").Save()
ElseIf result = DialogResult.No
Tables("采购主表").Current.Delete()
Else
Return
End If
End If
Forms("入库单").Close()
Forms("主窗口").Open()