- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]缺少运算符 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109141)
-- 发布时间：2017/11/5 14:14:00
-- [求助]缺少运算符
求助：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试粘片基.foxdb |
点 粘片基 后报错
错误所在事件：表，业务估价，DataColChanged
详细错误信息：
调用的目标发生了异常。
语法错误:“粘片基”运算符后缺少操作数。
-- 发布时间：2017/11/5 21:20:00
--
Select Case e.DataCol.name
Case "数量", "K数", "粘片基"
Dim zpj As String = iif(e.DataRow("粘片基") = True, "粘片基", "")
If zpj = "" Then
e.DataRow("粘片基费") = Nothing
Else
Dim fdr1 As DataRow = DataTables("粘片基").find("盒子大小K <= " & e.DataRow("K数") & "", "盒子大小K desc")
If fdr1 IsNot Nothing Then
e.DataRow("粘片基费") = IIF(e.DataRow("数量")>fdr1("起订个数"),fdr1("开机费") + (e.DataRow("数量") - fdr1("起订个数")) * fdr1("单价"), fdr1("开机费"))
End If
End If
End Select
-- 发布时间：2017/11/7 22:25:00
--
ok了，谢谢老师