以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助][讨论] vars(“记录”)的值的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149644)

--  作者:81538475
--  发布时间:2020/5/8 12:18:00
--  [求助][讨论] vars(“记录”)的值的问题
在datacolchaning 里面添加添加局部变量

Vars.Add("记录",GetType(double),e.NEWVALUE)
msgbox(VARS("记录"))

当输入1.5时,返回的值时8.不知道为何。输入0.1到0.5一下的值又时正常的

--  作者:有点蓝
--  发布时间:2020/5/8 13:31:00
--  
直接赋值即可,不需要add添加的

VARS("记录") = e.NEWVALUE

另外贴出datacolchaning完整代码,然后再看看:http://www.foxtable.com/webhelp/topics/1522.htm
[此贴子已经被作者于2020/5/8 13:31:24编辑过]

--  作者:81538475
--  发布时间:2020/5/8 14:15:00
--  
有进行列名的判断。
现在单独表格测试没有问题。
但是我的项目中不知道为啥,小数部分被舍去了。。datacolchaning 的代码都屏蔽掉。只留这个也不行。甚至加上 systemready = False 也不行。
If e.DataCol.Name = "APC" Then
systemready = False
vars("记录输入值") = e.NewValue
msgbox(vars("记录输入值"))
    systemready = True
end if

--  作者:81538475
--  发布时间:2020/5/8 14:18:00
--  
这个列也是 double
--  作者:有点蓝
--  发布时间:2020/5/8 14:23:00
--  
If e.DataCol.Name = "APC" Then
msgbox(e.NewValue)
vars("记录输入值") = e.NewValue
msgbox(vars("记录输入值"))
end if


--  作者:81538475
--  发布时间:2020/5/8 15:06:00
--  
msgbox(e.NewValue)
是正常的

msgbox(vars("记录输入值")) 把小数部分去掉了。

--  作者:81538475
--  发布时间:2020/5/8 15:34:00
--  
把  bin 删除之后正常了图片点击可在新窗口打开查看