主题：[求助]关于表达式------求助大神

 drawcell事件

If e.Col.name = "kk" Then
    Dim str As String = e.Col.DataCol.Expression
    For Each c As Col In e.Table.cols
        If str.contains(c.name) Then
            str = str.replace(c.name, e.Row(c.name))
        End If
    Next
    e.text = str
End If

或者用代码

Dim s As String = ""
Dim tb As Table = Tables("订单")
For r As Integer = 0 To tb.Rows.count-1
    If tb.Rows(r).Isnull("余额") = False Then
        Dim str As String = tb.Cols("余额").DataCol.Expression
        For Each c As object In tb.Cols
            If str.contains(c.name) Then
                str = str.replace(c.name, tb.Rows(r)(c.name))
            End If
        Next
        s &= str & "+"
    End If
Next
msgbox(s.trim("+"))