| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 取消存盘问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91823) |
| -- 作者：武汉老杨 -- 发布时间：2016/10/19 19:20:00 -- 取消存盘问题 表 BeforeSaveDataRow中 If e.DataRow("入账") = False Then \'判断是否不符合验证要求 MessageBox.Show("你最好确认一下,是不是确定这样收款?确认清楚了请点击\'入账\'!如果确认有问题,请做退款处理!","存盘失败",MessageBoxButtons.OK,MessageBoxIcon.Exclamation) \'提示用户 Dim Index As Integer Index = Tables("收款记录").FindRow(e.DataRow) \'找出此行在销售数据Table中的位置 If Index > -1 Then \'如果找到此行 Tables("收款记录").Position = Index \'将焦点定位到此行 End If MainTable = Tables("收款记录") \'选择销售数据表作为主表. e.Cancel = True \'取消存盘 End If 保存后，项目窗口直接最大化，关闭后项目推出。 什么原因，代码该怎么写？ 目的：如果 入账 列 不填写，禁止保存和推出窗口。 |
| -- 作者：有点蓝 -- 发布时间：2016/10/19 20:41:00 -- 看不出问题。上例子测试 |
| -- 作者：武汉老杨 -- 发布时间：2016/10/19 21:31:00 -- 外部数据，不好上传啊！ 我再做个例子试一下！ [此贴子已经被作者于2016/10/19 21:31:57编辑过]
|