主题：求助表达式该如何设计？

 编写dataColChanged事件

 

Select Case e.DataCol.name
    Case "消费金额"
        Dim i As Double = e.DataRow("消费金额")
        If i > 0 AndAlso i < 550 Then
            e.DataRow("会员等级") = "普通会员"
        ElseIf i > 550 AndAlso i < 1200 Then
            e.DataRow("会员等级") = "黄金会员"
        ElseIf i > 1200 AndAlso i < 1550 Then
            e.DataRow("会员等级") = "白金会员"
        ElseIf i > 1550 AndAlso i < 2000 Then
            e.DataRow("会员等级") = "会员"
        ElseIf i > 2000 Then
            e.DataRow("会员等级") = "普通会员"
        End If
End Select

编写dataColChanged事件

 

Select Case e.DataCol.name
    Case "会员等级"
        Dim i As Double = e.DataRow("消费金额")
        If i > 0 AndAlso i < 550 Then
            e.DataRow("会员等级") = "普通会员"
        ElseIf i > 550 AndAlso i < 1200 Then
            e.DataRow("会员等级") = "黄金会员"
        ElseIf i > 1200 AndAlso i < 1550 Then
            e.DataRow("会员等级") = "白金会员"
        ElseIf i > 1550 AndAlso i < 2000 Then
            e.DataRow("会员等级") = "会员"
        ElseIf i > 2000 Then
            e.DataRow("会员等级") = "普通会员"
        End If
End Select

 

子表的datacolchanged事件

 

If e.DataCol.Name = "金额" Then DataTables("表A").DataCols("会员等级").RaiseDataColChanged

Select Case e.DataCol.Name
    Case "数量", "单价"
        DataTables("会员资料").DataCols("会员等级").RaiseDataColChanged
End Select

Dim i As Double = e.DataRow("消费金额")

 

改成

 

Dim i As Double = val(e.DataRow("消费金额"))