日韩在线观看电影_四虎一级片|HD中文字幕在线播放,午夜免费久久,国产高清一区二区,亚洲天堂狠狠干

易寶電子貿易管理軟件論壇

注冊

 

發新話題 回復該主題

[分享] 打印格式中,如何把特殊符號后的字符去掉 [復制鏈接]

1#
銀光圖片

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

解決方法:

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拖出到格式即可



分享 轉發
TOP
發新話題 回復該主題