| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]lable赋值后偶尔出现的错误提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46023) |
| -- 作者：红颜 -- 发布时间：2014/2/15 18:31:00 -- [求助]lable赋值后偶尔出现的错误提示 e.form.Controls("Label6").Text = CUMoney(Round2(Tables("打印发票_Table1").Compute("Sum(金额)","分组 = \'" & min & "\' And 打印 = False" ),2)) 偶尔出现转换无效提示 CUMoney(Round2(Tables("打印发票_Table1").Compute("Sum(金额)","分组 = \'" & min & "\' And 打印 = False" ),2))
上段代码为申明变量，可以直接赋值给文本框吗？
[此贴子已经被作者于2014-2-15 18:38:00编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/2/15 19:25:00 -- 偶尔出现无效提示？提示什么？ 如果错，是不是“空对象”错误？
|
| -- 作者：狐狸爸爸 -- 发布时间：2014/2/17 8:40:00 -- 建议修改为：
Dim Val As Double Val = Tables("打印发票_Table1").Compute("Sum(金额)","分组 = \'" & min & "\' And 打印 = False" ) e.form.Controls("Label6").Text = CUMoney(Round2(val,2)) |