Foxtable(狐表)用户栏目专家坐堂 → 新发现的问题, e.Sender.WriteValue()


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

主题:新发现的问题, e.Sender.WriteValue()

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
新发现的问题, e.Sender.WriteValue()  发帖心情 Post By:2015/3/24 17:45:00 [显示全部帖子]

假定某个文本框绑定到一个字段,我们在该文本框输入内容的时候,并不会即刻刷新字段的内容,直到你输入结束并离开该文本框,字段的内容才会刷新。
如果你希望在文本框中进行的任何编辑,均能即时显示在字段中,可以将其TextChanged事件代码设为:

e.Sender.WriteValue()

--------------------------


按照这个说明,我把文本输入框绑定到了一个双精度列,在这个文本框里居然不能输入小数点,会出错。而在表上的这个列可以随便输入,但在文本框里不能输入小数点。用这个e.Sender.WriteValue()参数绑定其他控件到其他列不存在问题。


求解,谢谢

[此贴子已经被作者于2015/3/24 17:45:13编辑过]

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2015/3/24 21:58:00 [显示全部帖子]

是甜甜?怎么换号码了? 被盗了吗? 呵呵,admin 的号也能被盗啊


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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2015/3/25 9:57:00 [显示全部帖子]

以下是引用有点甜在2015/3/25 9:21:00的发言:

 处理一下就行

 

If e.Sender.Text.EndsWith(".") = False Then
    e.Sender.WriteValue()
End If

我加在 textchanged 事件中的,输入 . 的时候,光标又回退,自动把 . 删了。


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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2015/3/25 10:09:00 [显示全部帖子]

既然要绑定到双精度小数列,为何非得要文本框?难道您还准备输入汉字或其他特殊字符?

用什么框呢? 我初学,不要见笑。


1、你用的是TextBox控件吗?我测试没问题;

 恩,是用的TEXTBOX。



此主题相关图片如下:qq图片20150325100840.png
按此在新窗口浏览图片



[此贴子已经被作者于2015/3/25 10:09:26编辑过]

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2015/3/25 10:30:00 [显示全部帖子]

我正在研究这个问题时,打开了一个测试文件,准备发给你们。但发现在TEXTBOX的控件里面可以输入小数点了,并且是实时显示到表中的(这正是我想要的效果),我正想打开窗口看下代码,就提示这个:

图片点击可在新窗口打开查看此主题相关图片如下:25563.png
图片点击可在新窗口打开查看
我一个人正在用,reopen 后也还是这样。
[此贴子已经被作者于2015/3/25 10:30:33编辑过]

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2015/3/25 10:36:00 [显示全部帖子]

,哦, 我昨天是这样加的:
If e.form.controls("textbox2").text <> "" Then
    Tables("派工表").current("单价") = e.form.controls("textbox2").text
Else
    Tables("派工表").current("单价") = Nothing
End If

居然搞忘了,没用你的代码。

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2015/3/25 10:44:00 [显示全部帖子]

 处理一下就行

 

If e.Sender.Text.EndsWith(".") = False Then
    e.Sender.WriteValue()
End If


--------------------------

试试输:50.03

或者 :10.02

小数点后跟一个0,就自动回退了。


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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2015/3/25 10:54:00 [显示全部帖子]

恩 ,刚才我也没完全测试。 正好我输入小数点后带零的数字,就发现是个问题。但输入其它数字没问题。

 回到顶部