以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]列表点击新建按钮,打开窗体自动编号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138107)

--  作者:haibingxinyi
--  发布时间:2019/7/23 9:09:00
--  [求助]列表点击新建按钮,打开窗体自动编号
本人刚接触foxtable ,看了教程,里面更多的用法都是直接在表中编辑的。我想做个系统,模式是列表界面,有个新建按钮,打开窗体,窗体内编号自动带入。 修改时共用这个窗体。 问题1: 想用 “模式”类型的窗体,但是模式类型的窗体特点是:点击新建后无法给text赋值。而使用其他窗体又不够严谨,因为不想让用户在 编辑当前记录的时候去操作其他记录。 求大神们给个思路或者例子。
图片点击可在新窗口打开查看此主题相关图片如下:无标题.jpg
图片点击可在新窗口打开查看
这是我做的界面。 问题2: 我在添加按钮写的代码是 Tables("JCSJ_供应商").AddNew() Forms("供应商编辑").Open() 在编辑窗体中的取消写的是: Tables("JCSJ_供应商").Current.Reject() Forms("供应商编辑").Close() 当用户点击取消时,输入的撤回。同时关闭窗体,但是当用户不点击取消,直接点击右上角关闭按钮时则这条数据还在。 请问如何解决?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目.table

[此贴子已经被作者于2019/7/23 9:12:14编辑过]

--  作者:haibingxinyi
--  发布时间:2019/7/23 9:28:00
--  
只有看的没有回的啊
--  作者:有点蓝
--  发布时间:2019/7/23 9:59:00
--  
1、赋值代码放到窗口的afterload事件
2、"供应商编辑"窗口设计属性总把“显示控制框”设置为false

--  作者:haibingxinyi
--  发布时间:2019/7/23 14:14:00
--  afterload事件中赋值不管用
试了一下,在afterload事件中赋值不管用, 比如就写个 e.Form.Controls("TextBox1").value="0002" 点击新建后 在编码那个位置还是没有内容。 是哪里不对吗?
--  作者:haibingxinyi
--  发布时间:2019/7/23 14:16:00
--  
如何判断此条记录是新增的还是原来的数据,不是得根据这个来判断是否赋值么。 如果是新增则赋值,如果是修改则不能赋值。
--  作者:有点蓝
--  发布时间:2019/7/23 14:18:00
--  
如果是绑定的应该对表格赋值:http://www.foxtable.com/webhelp/topics/2436.htm

dim r as row = Tables("JCSJ_供应商").AddNew()
r("某某列") = “0002

Forms("供应商编辑").Open()

--  作者:haibingxinyi
--  发布时间:2019/7/23 14:51:00
--  列表不允许编辑
非常感谢。上两个问题已经解决了,还有一个。 列表不允许编辑。 就是在列表界面用户无法输入。只有通过窗口才可以操作。 我之前用表属性->允许编辑 设置为false 但是发现窗体里面也不能编辑了。 我就在添加按钮和修改按钮中添加了代码:Tables("JCSJ_供应商").AllowEdit=True 让打开窗体的时候可以编辑。再关闭窗体的时候再Tables("JCSJ_供应商").AllowEdit=false 设置为不允许编辑。 能解决问题,但是觉得麻烦,有没有foxtable特色的简单的处理办法。
--  作者:有点蓝
--  发布时间:2019/7/23 15:00:00
--  
这个就是foxtable特色的用法。

或者可以:
"JCSJ_供应商"表prepareedit写代码:
e.cancel = true

AllowEdit的用法就不需要了

--  作者:haibingxinyi
--  发布时间:2019/7/23 15:27:00
--  双击控件不可用,修改控件可用
我想实现双击列表时 弹出的窗体中可以录入的控件都不可用。 而点击修改按钮时的编辑控件都可用 应该如何实现。因为窗体是模式的,无法从外面设定控件的状态。 从afterload也无法获取从哪里点击进来的。 请问应该如何处理?
--  作者:有点蓝
--  发布时间:2019/7/23 15:38:00
--  
全局变量

如双击
vars("模式") = “双击”
Forms("供应商编辑").Open()

编辑按钮
vars("模式") = “编辑
Forms("供应商编辑").Open()

在窗口里判断vars("模式")的值控制是否可以编辑