主题：[求助]按条件打开提示框，不能得到预想结果？

Dim Count As Integer = DataTables("SFMX").Compute("Count(ZT)","ZT = 0")

If Count > 0 Then

    Dim Result As DialogResult

    Result = MessageBox.Show("存在未收费的单据,是否继续收费?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

    If Result = DialogResult.Yes Then

        Tables("SFMX").Filter = "[ZT] = 0"

        Forms("找零计算").Show()

    Else

        e.Form.Controls("ComboBox1").value = Nothing

        e.form.Controls("ComboBox1").Select()

    End If

End If