主题：提示

此主题相关图片如下：1.jpg

当单元格点击下拉按钮选择数据时，此时数据还没保存到单元格中  希望出现 自己创建的窗口 并且在窗口中点击 确定 自动保存所选数据  点击取消还是显示蓝色字体 手动保存

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

 

我用的狐表是老版本的狐表版本  现在暂时不能升级  能不能把代码发我一下 谢谢

 

表A_ChangeEdit

 

If e.Col.name = "车号" Then

    If e.text <> e.Row("承运单位") Then

        forms("提示").open

    End If

End If

 

 

提示_Button1_Click

 

Tables("表A").FinishEditing

Tables("表A").Current.save

e.Form.close

我希望实现的是  不管车号列内容与承运单位列内容是否一致  提示窗口都会出现  点击确定按钮

Tables("应付应收录入").FinishEditing

Tables("应付应收录入").Current.save

e.Form.close

 

点击取消按钮  清除单元格内容

直接写

 

forms("提示").open

 

取消按钮

 

Tables("应付应收录入").FinishEditing
Tables("应付应收录入").value = Nothing

Select Case e.DataCol.name
    Case "车号","起点", "日期","货物名称","终点","现金金额"
       
        If e.DataRow.IsNull("车号") = False Then
            Dim tname As String = "車" & e.DataRow("车号")
            If DataTables.contains(tname) Then
                Dim dr As DataRow = DataTables(tname).Find("编号 = '" & e.DataRow("_Identify") & "'")
                If dr Is Nothing Then
                    dr =  DataTables(tname).Find("编号 is null and 车号 is null")
                    If dr Is Nothing Then dr = DataTables(tname).Addnew
                    dr("编号") = e.DataRow("_Identify")
                End If
                dr("车号") = e.DataRow("车号")
                dr("起点") = e.DataRow("起点")
                dr("日期") = e.DataRow("日期")
                dr("货物") = e.DataRow("货物名称")
                dr("终点") = e.DataRow("终点")
                dr("现金运费") = e.DataRow("现金金额")
            End If
        End If
End Select

以上是我之前 在项目事件中添加的代码  意思就是说 当应付应收表  车号列内容 与 承运单位列 内容 一致 时   其余几个 車XXX表 按对应所填写的车号 自动导入到車表 

但是现在提示窗口点击按钮取消时 对应的車表 又导出了

此主题相关图片如下：11.jpg

代码

Tables("应付应收录入").FinishEditing

Tables("应付应收录入").value = Nothing
e.Form.close

什么原因呢 

这个取消按钮代码如何写呢？
 

systemready = false

Tables("应付应收录入").FinishEditing

Tables("应付应收录入").value = Nothing
e.Form.close

systemready = true

取消按钮出现这个

此主题相关图片如下：36.jpg

换个思路