Dim cmd As New SQLCommand Dim zf As Integer = 1 cmd.C cmd.CommandText ="Select Count(*) From {订单} Where 订金 = zf " If cmd.ExecuteScalar > 0 Then Messagebox.Show("存在相同的订金","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.Show("不存在相同的订金","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)