datacolchanged事件
Select Case e.DataCol.Name
Case "授课时长","司龄","学历","职级","满意度"
If e.DataRow("授课时长") > 30 AndAlso e.DataRow("司龄") > 3 AndAlso e.DataRow("满意度") > 4.5 AndAlso e.DataRow("学历") = "本科" AndAlso e.DataRow("职级") = "经理"
e.DataRow("授课时长") = "高级讲师"
ElseIf e.DataRow("授课时长") > 20 AndAlso e.DataRow("司龄") > 2 AndAlso e.DataRow("满意度") > 4 AndAlso (e.DataRow("学历") = "大专" OrElse e.DataRow("学历") = "本科") AndAlso (e.DataRow("职级") = "主管" OrElse e.DataRow("职级") = "经理")
e.DataRow("授课时长") = "中级讲师"
ElseIf ...............自己参考着做
End If
End Select