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


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

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

帅哥哟,离线,有人找我吗?
cyrollin
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/25 10:32:00 [只看该作者]

 1、用开发者登陆;

 

 2、勾选,点确定;

 

 3、代码,就是之前发给你的代码


 回到顶部
帅哥哟,离线,有人找我吗?
cyrollin
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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,就自动回退了。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/25 10:49:00 [只看该作者]

 嗯嗯,是有问题,你的是正解。

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


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

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

 回到顶部
总数 16 上一页 1 2