主题：按选择的条件计算

控件ComboBox的值等于不含税，计算不含税金额

控件ComboBox的值等于含税，计算含税金额

 

请问代码要怎么改

 

Select Case e.DataCol.Name
    Case "厂发重量"
        SystemReady = False
        If e.DataRow.isnull("厂发重量") = False Then
            If e.DataRow.IsNull("厂发单价") Then
                e.DataRow("含税金额") = e.DataRow("厂发单价") * e.DataRow("厂发重量")
            ElseIf e.DataRow.isnull("厂发单价") Then
                e.DataRow("厂发单价") = e.DataRow("含税金额") / e.DataRow("厂发重量")
            Else
                e.DataRow("含税金额") = e.DataRow("厂发单价") * e.DataRow("厂发重量")
            End If
        End If
        SystemReady = True
    Case "厂发单价"
        SystemReady = False
        If e.DataRow.isnull("厂发单价") = False Then
            If e.DataRow.IsNull("含税金额") Then
                e.DataRow("含税金额") = e.DataRow("厂发单价") * e.DataRow("厂发重量")
            ElseIf e.DataRow.isnull("厂发重量") Then
                e.DataRow("厂发重量") = e.DataRow("含税金额") / e.DataRow("厂发单价")
            Else
                e.DataRow("含税金额") = e.DataRow("厂发单价") * e.DataRow("厂发重量")
            End If
        End If
        SystemReady = True
    Case "含税金额"
        SystemReady = False
        If e.DataRow.isnull("含税金额") = False Then
            If e.DataRow.IsNull("厂发单价") Then
                If e.DataRow.IsNull("厂发重量") = False Then
                    e.DataRow("厂发单价") = e.DataRow("含税金额") / e.DataRow("厂发重量")
                End If
            ElseIf e.DataRow.isnull("厂发重量") Then
                If e.DataRow.IsNull("厂发单价") = False Then
                    e.DataRow("厂发重量") = e.DataRow("含税金额") / e.DataRow("厂发单价")
                End If
            Else
                If e.DataRow.IsNull("厂发重量") = False Then
                    e.DataRow("厂发单价") = e.DataRow("含税金额") / e.DataRow("厂发重量")
                End If
            End If
        End If
        SystemReady = True
End Select

if forms("xx窗口").controls("ComboBox").text = "不含税" then