- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95153)
-- 发布时间：2017/1/11 15:58:00
-- 提示
此主题相关图片如下：1.jpg
当单元格点击下拉按钮选择数据时，此时数据还没保存到单元格中 希望出现 自己创建的窗口 并且在窗口中点击 确定 自动保存所选数据 点击取消还是显示蓝色字体 手动保存
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2017/1/11 16:54:00
--
-- 发布时间：2017/1/11 17:23:00
-- 回复：（有点色）[upload=table,管理项目1.table]view...
我用的狐表是老版本的狐表版本 现在暂时不能升级 能不能把代码发我一下 谢谢
-- 发布时间：2017/1/11 17:33:00
--
表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
-- 发布时间：2017/1/11 18:27:00
-- 回复：（有点色） 表A_ChangeEdit If...
我希望实现的是 不管车号列内容与承运单位列内容是否一致 提示窗口都会出现 点击确定按钮
Tables("应付应收录入").FinishEditing
Tables("应付应收录入").Current.save
e.Form.close
点击取消按钮 清除单元格内容
-- 发布时间：2017/1/11 18:34:00
--
直接写
forms("提示").open
取消按钮
Tables("应付应收录入").FinishEditing
Tables("应付应收录入").value = Nothing
-- 发布时间：2017/1/11 19:03:00
-- 回复：（有点色）直接写?forms("提示").open...
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
什么原因呢
这个取消按钮代码如何写呢？
-- 发布时间：2017/1/12 2:52:00
--
systemready = false
Tables("应付应收录入").FinishEditing
Tables("应付应收录入").value = Nothing
e.Form.close
-- 发布时间：2017/1/12 8:54:00
-- 回复：（有点色）systemready = falseTables("应付应...
取消按钮出现这个
此主题相关图片如下：36.jpg
-- 发布时间：2017/1/12 9:19:00
--
换个思路
DataColChanging