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

 这样试试看看。不可能有错的，肯定是你的数据有问题。

Dim Count As Integer = DataTables("SFMX").Compute("Count(_Identify)","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()
        return
    End If
End If
e.Form.Controls("ComboBox1").value = Nothing
e.form.Controls("ComboBox1").Select()

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()
        Return
    End If
End If

Tables("SFMX").Filter = "[BH] Is Null"
e.Form.Controls("ComboBox1").value = Nothing
e.Form.Controls("ComboBox2").value = Nothing
e.Form.Controls("ComboBox3").value = Nothing
e.Form.Controls("NumericComboBox1").value = Nothing
e.Form.Controls("NumericComboBox2").value = Nothing
e.form.Controls("ComboBox1").Select()