1、我想实现，其一 在关闭窗口时，如果没有保存，提示“保存”，然后检查关闭，如果已经保存，可以直接关闭，其二 对话框里面的取消按钮不起作用。您看看我的这个代码哪里出现了问题
With Tables("采购主表")
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()
Else
Tables("采购主表").Current.Delete()
End If
End With
Forms("入库单").Close()
Forms("主窗口").Open()
2、根据入库明细表和出库明细表，设计一个可以查看某一库房（假如有3个库房）的某种商品在一定时期的进出库明细，怎么实现
加好友 
发短信
Post By：2019/1/4 0:41:00 [显示全部帖子]
