Foxtable(狐表)用户栏目专家坐堂 → [求助]事件代码


  共有12541人关注过本帖树形打印复制链接

主题:[求助]事件代码

帅哥哟,离线,有人找我吗?
红叶
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:357 积分:2895 威望:0 精华:0 注册:2008/9/1 14:05:00
[求助]事件代码  发帖心情 Post By:2010/9/20 11:10:00 [只看该作者]

"订单表"和"订单明细"通过"订单编号"建立关联,"订单表"设有一个"录入窗口".

"订单表"中有一列"单号",列属性的"禁止重复"设为"TRUE",在主表中如果输入重复的单号,会生效,有重复的提.

"订单表"的"录入窗口"中有一个TEXTBOX已邦定要主表的单号列,问题是在这个文本框中输入重复的单号,却禁止重复不生效,请问是为什么?是不是在此文本框中需要另设事件代码?那代码又为何写呢和写在哪个事件中呢?

 

还是就是在"订单表"中有一列为合计数量(数据列,非表达式列),目的是统计"订单明细"中相应的明细数据数量的合计数,代码应该怎样写?应在哪能个事件中写?


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/9/20 11:44:00 [只看该作者]

1、暂时这样处理,文本框的TextChanged的事件:(如果狐爸能在系统中解决更好)

 

Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim dr As DataRow
dr = DataTables("订单").Find("公司名称 = '" & tx.text & "'")
If dr isnot Nothing
    messagebox.show("有重复的值,请更正!","提示")
    e.cancel =  True
End If

 

2、合计:参见帮助文件 Sum 吧,很简单的。


 回到顶部
帅哥哟,离线,有人找我吗?
红叶
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:357 积分:2895 威望:0 精华:0 注册:2008/9/1 14:05:00
  发帖心情 Post By:2010/9/20 12:33:00 [只看该作者]

这样还是不行,比如原来"单号"有123,要在窗口中输入单号为1234时,当输入到123的时候就提示"有重复的值,请更正!",且123值还是被写到主表的"单号"列了,没起到禁止重复的目的,还有就是在单号不重复的情况下,在窗口按钮上一行,下一行时,同样会提示"有重复的值,请更正!",且每行都提示.


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/9/20 13:25:00 [只看该作者]

那就这样:  放在leave事件中

Dim tx As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
Dim dr As DataRow
dr = DataTables("订单").Find("公司名称 = '" & tx.text & "'")
If dr isnot Nothing
    If dr("公司名称") = "" & tx.text & ""
        messagebox.show("有重复的值,请更正!","提示")
        tx.value =""
        Forms("窗口1").Controls("TextBox1").Select()
    End If
Else
    Tables("订单").current("公司名称")  = Forms("窗口1").Controls("TextBox1").text   
End If

 

要取消绑定·······

 

 

[此贴子已经被作者于2010-9-20 13:58:50编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
红叶
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:357 积分:2895 威望:0 精华:0 注册:2008/9/1 14:05:00
  发帖心情 Post By:2010/9/20 15:26:00 [只看该作者]

按你所说的取消邦定就不能读取订单表的单号值了,使得文件框永远都是空白

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/9/20 15:49:00 [只看该作者]

不是有个初始值嘛?  enter、 leave 、mousemove 等N个事件中都可以设置代码给他赋值呀。。。。想叫它非空白那也难?

 回到顶部