前情概要：

我们在实际项目中肯定会遇到这样或者那样的细小的业务需求。比如接下来我要描述的这个业务需求。在写一些国外的业务时，总会遇到英文书写规范的问题。我们Query到一组数据。我们要对它进行分隔显示。XXField/XXField/XXField这样的格式。但是客户说啥就是啥，他们认为这样看不清，想要这样的：

XXField

我们嘿嘿一笑说马上改（改你MDB）。

然后过了两天客户说不好看，再改：

XXField ;XXField ;XXField

分号前后带空格的。So带出来一个问题，我们如何在Report里自定义Function完成我们的业务，在这里我以例子为业务需求我们去练习一下。

Report 搭建：

新建工程新建RDL 链接Server Query 数据（sql或者FetchXML）。

如下：

我们看一眼完成好的Report样式：

无论是哪种形式我们的业务处理的核心是Cared By这个字段的Value。Query读出Cared By是一个String类型。那么就好办了。如果我们处理一个字符串无非就是定义一个返回值为String的Function。传参返回Result。

我们测试的代码可以在Visual Stu@R_301_410@下新建一个VB工程。写入我们的VB Code。返回成功即可。

   Sub Main()
        '测试数据currentStr
        Dim currentStr As String
        currentStr = "1;2;2;3;4"
        '调用函数 调试返回字符串是否正确
        StringBuilder(currentStr)
    End Sub
 
 
    
 
    '传入字符串  返回另一字符串
    Public Function StringBuilder(ByVal strValue As String) As String
        Dim a() As String
        Dim currentStr As String
        Dim resultValue As String
        currentStr = strValue
        resultValue = ""
        a = Split(currentStr,";")
        resultValue = Join(a," ; ")
        
        Return resultValue
 
 
    End Function

代码里有两个函数 Split()和Join().一个是拆分字符串，一个是拼接字符串。可以查看官方API查看具体的用法。代码很简单但是让客户很满意，一顿吹牛逼这个有多难，给客户整的一愣一愣的其实分分钟的事。即使遇到再困难的业务逻辑我们也可以通过自定义Function来解决不是吗？

Step1：右键Report 空白处选择Report Properties。

Step2：Code选项下把代码拷进来。

Step 3：右键数据显示哪一格选择Expression。

Step4：调用我们自定义Function。它的写法是Code.XXX().下面显示红色是一个BUG，只要你的函数在VS下编译通过就没有问题。调用完成Save-Run Report就是第一张图所示效果。

Attention：

1.我在这里只是举例说明一个业务。遇到的可能是处理更复杂的统计报表，遇到的是其他数据类型的处理以此类推。

2.这个例子解决的是当我们无法通过简单语法表示我们所要的数据可通过自定义Function来解决。前提是你的编程功底扎实能够写的出VB语言。（我从来没学过VB只不过会点儿C和C#以及前台，看了看API就糊弄出来了，希望不要跟我学，要想做好Report系统的学习VB还是有必要的）

3.明确处理的数据类型，避免“非战斗损失”。

4.Report处理的关键在于Query，注意Query数据的正确性很重要。

null。。。

Dynamic CRM Report<VB下自定义Function实现业务>

前情概要：

Report 搭建：

猜你在找的VB相关文章