rdlc 组生成的小计如何更改小计的字体颜色样式,我试验了可以修改自动求和的组内字体。这样小计的颜色字体也跟着改变。我不想修改组内的。只想单独修改小计的。如何实现?

解决方案 »

  1.   

    Mark 一下,晚上不加班的话就回贴
      

  2.   

    Function CNMoney(money As Double) As String
        Dim str_Money=money.ToString()
        Dim str_China As [String]() = {"分", "角", "元", "拾", "佰", "仟", _
            "万", "拾", "佰", "仟", "亿", "拾", _
            "佰", "仟", "兆", "拾", "佰", "仟"}
        Dim str_Number As [String]() = {"零", "壹", "贰", "叁", "肆", "伍", _
            "陆", "柒", "捌", "玖"}
        Dim M As [String] = ""
        Dim isPoint As Boolean = False
        If str_Money.IndexOf(".") <> -1 Then
            str_Money = str_Money.Remove(str_Money.IndexOf("."), 1)
            isPoint = True
        End If
        For i As Integer = str_Money.Length To 1 Step -1
            Dim MyData As Integer = Convert.ToInt16(str_Money(str_Money.Length - i).ToString())
            M += str_Number(MyData)
            If isPoint = True Then
                M += str_China(i - 1)
            Else
                M += str_China(i + 1)
            End If
        Next
        Return M
    End Function