DataColChanged事件
If e.DataCol.Name = "销售金额" Then
e.DataRow("经理提成") = 0
If e.DataRow.IsNull("销售金额") = False Then
Dim xs As Double = e.DataRow("销售金额")
If xs >= 30 AndAlso xs < 100 Then
e.DataRow("经理提成") = 100
ElseIf xs >= 100 AndAlso xs < 300 Then
e.DataRow("经理提成") = 200
ElseIf xs >= 300 AndAlso xs < 1000 Then
e.DataRow("经理提成") = 300
End If
End If
End If