Foxtable(狐表)用户栏目专家坐堂 → 执行下面代码报错


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

主题:执行下面代码报错

帅哥哟,离线,有人找我吗?
lgz518
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1257 积分:8555 威望:0 精华:0 注册:2019/6/13 9:57:00
执行下面代码报错  发帖心情 Post By:2022/1/18 16:16:00 [只看该作者]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.10.2
错误所在事件:表,库存表,DataColChanged
详细错误信息:
调用的目标发生了异常。
语法错误:“ZJ”运算符后缺少操作数。

执行下面代码报错,提示上面信息,系统关不掉:
Select Case e.DataCol.Name
    Case  "产品编号"
        Dim Filter As String  = "产品编号 = " & e.DataRow("产品编号")
       
        e.DataRow("入库_数量") = DataTables("入库明细").Compute("Sum(数量)", Filter)
        e.DataRow("入库_金额") = DataTables("入库明细").Compute("Sum(金额)", Filter)
        
        e.DataRow("出库_数量") = DataTables("出库明细").Compute("Sum(数量)", Filter)
        e.DataRow("出库_金额") = DataTables("出库明细").Compute("Sum(金额)", Filter)
        
            
        e.DataRow("库存_数量") = e.DataRow("期初_数量")+ e.DataRow("入库_数量") - e.DataRow("出库_数量")
        e.DataRow("库存_金额") = e.DataRow("期初_金额")+ e.DataRow("入库_金额") - e.DataRow("出库_金额")
               
End Select

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110818 积分:564034 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/18 16:30:00 [只看该作者]

"产品编号"是字符列?
Dim Filter As String  = "产品编号 = '" & e.DataRow("产品编号") & "'"

表达式中的日期用符号#括起来,数值则不需要任何符号括起来,这些和代码中的格式是一样的,唯一不同的是字符串用单引号括起来。

例如:

Tables("订单").Filter = "[产品] = 'PD01'"  '字符用单引号括起来
Tables("订单").Filter = "[日期] = #3/17/1999#"  '日期用#括起来
Tables("订单").Filter = "[折扣] = 0.1"  '数值直接使用


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


加好友 发短信
等级:六尾狐 帖子:1257 积分:8555 威望:0 精华:0 注册:2019/6/13 9:57:00
  发帖心情 Post By:2022/1/18 17:06:00 [只看该作者]

 pr = DataTables("物料明细").Find("[产品编号] = '" & e.DataRow("产品编号")"'" )  

上面报错,如何改,谢谢

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2022/1/18 17:15:00 [只看该作者]

 pr = DataTables("物料明细").Find("[产品编号] = '" & e.DataRow("产品编号") & "'" )  

 回到顶部