Select Case e.DataCol.Name Case "数量","单价" Dim q As Integer = e.DataRow("数量") * e.DataRow("单价") e.DataRow("金额") = q/100 End SelectDataTables("表A").DataCols("金额").SetFormat("0%")
一个例子,金额是表达式列