打印格格式中,如何把特殊符號后的字符去掉(如下,客戶名稱中,怎樣把“^”后面的字符去掉)?


解決方法:
(1)新建公式—輸入名稱(customerName)-點擊使用編輯器


(2)在報表自定義函數里新建一個函數---選擇Basic語法,在編輯器里輸入:
Function
cheakdepart( s as string)
'先進行判斷
'聲明已知字符串的字節數、"^"所在位置的變量
Dim n As Number
, m As Number
'聲明字符串變量
Dim s0 as string
'如果包含"^"符號截取其后文本
if ("^" in s) then
For n = 1 To Len(s) '這里用了Len函數來計算已知字符串的字節數
m = InStr(s, "^", -1) '"^"所在的位置(其中的-1是默認的)
'顯示第一個"^"后面的字符串
s0 = Left(s, m)
next n
s0=Replace (s0, "^"," " )
else '否則直接輸出
s0=s
end if
cheakdepart =s0
End Function


(3)在公式字段customerName編輯器里,輸入cheakdepart({StockOut.cusName})


(4)把公式customerName拖出到格式即可

