主题：[求助]多条件代码错误！求教

If Forms("门诊收费").Opened Then

    Dim TB As Table = Tables("SFMX")

    if TB.Current isnot nothing
        Dim DB As Double = Forms("门诊收费").Controls("NumericComboBox1").Value
        e.form.Controls("NumericComboBox2").Value = Round2(DataTables("SFMX").Compute("Sum(JE)","BRXM='" & TB.Current("BRXM") & "' And ZT = False" ),1)

    end if
End If