富文本框控件的使用（二）：如何根据数据字段展示HTML代码

在上篇博客当中，我们了解了富文本框控件中如何展示静态的html 代码，但html代码是来自于数据字段，并因为在数据存储到数据库中时，无法直接存储纯的html代码往往需要做一些格式转义，再进行存储，所以在我们获取到数据字段中，如何根据一定的存储方法逆向获得html代码，并在富文本框控件中展示呢？

本文主要讲解了，如何ActiveReports实现特殊格式的展示，并将脚本与富文本控件结合使用。

实现操作：

1、新建 RDL 报表或页面报表

2、添加富文本框控件到设计界面或嵌入表格单元格中

富文本框嵌入单元格

3、添加脚本

脚本函数主要用于对存储的方式进行转义还原成标准的HTML 代码，代码如下：

Dim sb As New System.Text.StringBuilder
    Dim sb1 As String = state.Substring(0, 1)
    sb.Append("<body style=""font-family:微软雅黑"">" & sb1)

    Dim i As Integer
    For i = 1 To state.Length - 1
        Dim c As String = state.Substring(i, 1)
        If c = "~"  Then            

            Dim cNext As String = state.Substring(i + 1, 1)
            sb.Append("<sup>" & cnext & "</sup>")
            i = i + 1
        Else If c = "_" Then

            Dim cNext As String = state.Substring(i + 1, 1)
            sb.Append("<sub>" & cnext & "</sub>")
            i = i + 1    

        Else
            sb.Append(c)
        End If
    Next
    sb.Append("</body>")
    Return sb.ToString()
    End Function

4、设置富文本框控件的 HTML 属性在HTML属性中设置调用脚本