| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教老师语法求和哪错了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128855) |
| -- 作者：wakai -- 发布时间：2018/12/16 22:07:00 -- 请教老师语法求和哪错了 CurrentChanged后写 If Tables("配方管理_配方").Current IsNot Nothing Then Dim t1 As Table = e.Form.controls("配方").Table Dim t2 As Table = e.Form.controls("配方明细").Table t2.Filter = "配方编码 = \'" & t1.Current("配方编码") & "\'" e.Table.Current("配方成本") = Format(Tables("配方管理_配方明细").Compute("sum(成本)"),"0.00") End If “成本”类型为Single单精度 以上代码实现选中行后就自动计算成本，但第一次选中行时提示 “从字符串“”到类型“Single”的转换无效。” 关闭错误提示后又可以自动计算填入 请教老师哪里错了 |
| -- 作者：有点甜 -- 发布时间：2018/12/16 22:19:00 -- 改成
e.Table.Current("配方成本") = Format(Tables("配方管理_配方明细").Compute("sum(成本)", "0.00") |