主题：请教str与cstr函数的区别

自己查 http://www.baidu.com/baidu?wd=str+cstr&tn=monline_4_dg

 呃，不要纠结这个，随便用一个。

例子说明

测试没问题啊

Dim r As Row
Vars("fzToTal") = new List(Of String)
Vars("fzToTal").add("第三列")
Vars("fzToTal").add("第二列")
Dim sum(Vars("fzToTal").Count-1) As Double

If e.Row(e.Table.Cols(0).name) = "合计" Then
    e.Style = "abc"
   
    For n As Integer = 0 To e.Row.Index -1
        r = e.Table.Rows(n)
        If r(e.Table.Cols(0).name) <> "合计" Then
           
            For i As Integer = 0 To sum.length - 1
                Dim  d1 As Double
               
                If cstr(r(Vars("fzToTal")(i))).contains("%") = False  Then
                    If Double.TryParse(r(Vars("fzToTal")(i)),d1) Then
                        sum(i) += val(d1)
                        If Format(val(sum(i)),"n") <> 0 And Format(val(sum(i)),"n") <> "0" And Format(val(sum(i)),"n") IsNot Nothing  Then
                            e.Row(Vars("fzToTal")(i)) = Format(val(sum(i)),"n")
                        Else
                            e.Row(Vars("fzToTal")(i)) = Nothing
                        End If
                        '
                       
                    End If
                Else
                    If Double.TryParse(r(Vars("fzToTal")(i)).replace("%",""),d1) Then
                        sum(i) += val(d1)/100
                        If Format(val(sum(i)),"n") <> 0 And Format(val(sum(i)),"n") <> "0" And Format(val(sum(i)),"n") IsNot Nothing  Then
                           
                            e.Row(Vars("fzToTal")(i)) = Format(sum(i),"Percent")
                        Else
                            e.Row(Vars("fzToTal")(i)) = Nothing
                        End If
                       
                    End If
                   
                End If
            Next
           
        End If
    Next
   
   
End If

没有改动啊。

做例子上说明问题。

Dim r As Row
Vars("fzToTal") = new List(Of String)
Vars("fzToTal").add("第三列")
Vars("fzToTal").add("第二列")
Dim sum(Vars("fzToTal").Count-1) As Double

If e.Row(e.Table.Cols(0).name) = "合计" Then
    e.Style = "abc"
   
    For n As Integer = 0 To e.Row.Index -1
        r = e.Table.Rows(n)
        If r(e.Table.Cols(0).name) <> "合计" Then
           
            For i As Integer = 0 To sum.length - 1
                Dim  d1 As Double
               
                If cstr(r(Vars("fzToTal")(i))).contains("%") = False  Then
                    If Double.TryParse(r(Vars("fzToTal")(i)),d1) Then
                        sum(i) += val(d1)
                        If Format(val(sum(i)),"n") <> 0 And Format(val(sum(i)),"n") <> "0" And Format(val(sum(i)),"n") IsNot Nothing  Then
                            e.Row(Vars("fzToTal")(i)) = Format(val(sum(i)),"n")
                        Else
                            e.Row(Vars("fzToTal")(i)) = Nothing
                        End If
                    Else
                        e.Row(Vars("fzToTal")(i)) = Format(val(sum(i)),"n")
                    End If
                Else
                    If Double.TryParse(r(Vars("fzToTal")(i)).replace("%",""),d1) Then
                        sum(i) += val(d1)/100
                        If Format(val(sum(i)),"n") <> 0 And Format(val(sum(i)),"n") <> "0" And Format(val(sum(i)),"n") IsNot Nothing  Then
                           
                            e.Row(Vars("fzToTal")(i)) = Format(sum(i),"Percent")
                        Else
                            e.Row(Vars("fzToTal")(i)) = Nothing
                        End If
                    Else
                        e.Row(Vars("fzToTal")(i)) = Format(sum(i),"Percent")
                    End If
                   
                End If
            Next
           
        End If
    Next
   
   
End If

无语啊，上传项目啊。不理解你说什么。