以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  split用法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169577)

--  作者:朱女士
--  发布时间:2021/6/21 18:55:00
--  split用法

老师您好!

我有一个计算,表中字段名为”变压器型号”数据格式为:SZ11-63000-110,sz11为变压器类型,6300为变压器容量,110为变压器电压等级。

我想取用变压器型号:SZ11-63000-110中的“sz11”,做为变压器类型,分别计算其数据。我想用split函数,在字段中不会用,请指教!

我的计算代码:

For Each r As Row In Tables("按变压器类型利润计算表").rows
   
    Dim xm As String = r("项目名称")
   
    For Each nm As String In DataTables("ddpsb").GetValues("变压器类型")

 

 If xm="三.总原料重量"
            r("合计")=tylgh
           
            fylgh=DataTables("ylckb").Compute("Sum(出库_重量)", "[ckdate]>=#" & dt1 & "# and [ckdate]<= #" & dt2 & "#  and split([变压器型号])(0)=\'" & nm & "\' And 变压器型号 Is not null")
            r(nm)=fylgh
        End If
next

next


--  作者:有点蓝
--  发布时间:2021/6/21 19:51:00
--  
split是代码语法,不能用到表达式里
fylgh=DataTables("ylckb").Compute("Sum(出库_重量)", "[ckdate]>=#" & dt1 & "# and [ckdate]<= #" & dt2 & "#  and [变压器型号] like \'" & nm & "-%\' And 变压器型号 Is not null")