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 = strEnd If