admin - 2015/10/20 10:39:59
打印格格式中，如何把特殊符号后的字符去掉（如下，客户名称中，怎样把“^”后面的字符去掉）？
解决方法：
（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拖出到格式即可