以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129694)
--  作者：admin22327
--  发布时间：2019/1/4 0:41:00
--  一个代码问题
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个库房）的某种商品在一定时期的进出库明细，怎么实现
--  作者：有点甜
--  发布时间：2019/1/4 9:02:00
--  

1、

 

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()

2、

 

http://www.foxtable.com/webhelp/scr/2305.htm

 

http://www.foxtable.com/webhelp/scr/2320.htm