以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表达式请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105581)
--  作者：hbhb
--  发布时间：2017/8/22 15:29:00
--  表达式请教
大师：请问表达式前面的“+” 为何去不掉？

Dim kmjh() As String = {"数量","数量1","数量2","合计"}
Dim zf As String
Dim zzf As String
For Each v As String In kmjh
    
    If v <> "合计"  Then
        zf = zf & " + " & "isnull(" & v & ",0)"
    End If

    zzf = zf.TrimStart(" + ","")
    If v <> "合计"
        dtb.AddDef(v ,Gettype(Double),"",v)
    Else
        dtb.AddDef(v ,Gettype(Double),zf,v)
    End If
    
Next
--  作者：blsu33
--  发布时间：2017/8/22 15:51:00
--  
 " + "变为 "+"
--  作者：有点甜
--  发布时间：2017/8/22 16:14:00
--  

Dim kmjh() As String = {"数量","数量1","数量2","合计"}
Dim zf As String
Dim zzf As String
For Each v As String In kmjh
   
    If v <> "合计"  Then
        zf = zf & "+" & "isnull(" & v & ",0)"
    End If


    zzf = zf.TrimStart("+")
    If v <> "合计"
        dtb.AddDef(v ,Gettype(Double),"",v)
    Else
        dtb.AddDef(v ,Gettype(Double),zf,v)
    End If
   
Next