如果组合框和文本框为空，我将如何禁用保存数据 [英] how will i disable saving data if comboboxes and textboxes are empty

问题描述

美好的一天！我再次来到这里;）我只会问，如果文本框和组合框是空的，我将如何禁用我的数据库保存。只是每当我点击保存按钮时，即使字段为空也会保存。我已经把msgbox放在代码上说'请填写字段'，但之后它会保存。我想要做的就是，如果我点击保存并且字段为空它将不会保存并弹出一个msgbox说'plss fill out fields'，如果我将数据放在字段上，它将立即保存：）



这里是代码：

  Dim 命令作为 新 OleDbCommand（ 插入没收（num，REGION，PENRO，CENRO，MONTHDATE，YEARDATE，CONVEYANCE，CONV_UNITOFMEASURE，CONV_EST_VALUE，CHAINSAW，CHAIN_UNITOFMEASURE，CHAIN_EST_VALUE ，LOGS，LOGS_UNITOFMEASURE，LOGS_EST_VALUE，FLITCHES，FLITCH_UNITOFMEASURE，FLITCH_EST_VALUE，LUMBER，LUMB_UNITOFMEASURE，LUMB_EST_VALUE）值（@ num，@ REGION，@ PENRO，@ CENRO，@ MONDDATE，@ YEARDATE，@ CONVEYANCE，@ CONV_UNITOFMEASURE，@ CONV_EST_VALUE，@ CHAINSAW @ CHAIN_UNITOFMEASURE，@ CHAIN_EST_VALUE，@日志，@ LOGS_UNITOFMEASURE，@ LOGS_EST_VALUE，@裁切，@ FLITCH_UNITOFMEASURE，@ FLITCH_EST_VALUE，@ LUM BER，@ LUMB_UNITOFMEASURE，@ LUMB_EST_VALUE））
 command.CommandType = CommandType.Text 
 con.Open（）
 
 如果 TextBox1.Text =   和 TextBox3.Text =   _ 
 和 TextBox5.Text =   和 TextBox7.Text =   _ 
 和 TextBox9.Text =   然后 
 MsgBox（ 无法保存，请填写没收产品）
  Else  
 使用 command.Parameters 
 .AddWithValue（  @ num，，a）
 .AddWithValue（  @ REGION，，ComboBox1.Text）
 .AddWithValue（  @PENRO，，ComboBox2.Text）
 .AddWithValue（  @ CENRO， ，ComboBox3.Text）
 .AddWithValue（  @ MONTHDATE，， ComboBox4.Text）
 .AddWithValue（  @ YEARDATE，，TextBox11.Text）
 .AddWithValue（  @ CONVEYANCE，，TextBox1.Text）
 .AddWit hValue（  @ CONV_UNITOFMEASURE，，ComboBox5.Text）
 .AddWithValue（  @ CONV_EST_VALUE，，TextBox2.Text）
 .AddWithValue（  @ CHAINSAW，，TextBox3.Text）
 .AddWithValue（  @ CHAIN_UNITOFMEASURE，，ComboBox6.Text）
 .AddWithValue（  @ CHAIN_EST_VALUE，，TextBox4.Text）
 .AddWithValue（  @LOGS，，TextBox5.Text）
 .AddWithValue（  @ LOGS_UNITOFMEASURE， ，ComboBox7.Text）
 .AddWithValue（  @ LOGS_EST_VALUE，，TextBox6.Text）
 .AddWithValue（  @ FLITCHES ，，TextBox7.Text）
 .AddWithValue（  @ FLITCH_UNITOFMEASURE，，ComboBox8.Text）
 .AddWithValue（  @ FLITCH_EST_VALUE，，TextBox8.Text ）
 .AddWithValue（  @ LUMBER，，TextBox9.Text）
 .AddWithValue（  @ LUMB_UNITOFMEASURE，，ComboBox9.Text）
 .AddWithValue（  @ LUMB_EST_VALUE，，TextBox10.Text）
 
 结束 使用 
 
 command.Connection = con 
 command.ExecuteNonQuery（）
 con.Close（）
 MsgBox（  success）
 
 ComboBox1.SelectedIndex = -1 
 ComboBox2.SelectedIndex = -1 
 ComboBox3.SelectedIndex = -1 
 ComboBox4.SelectedIndex = -1 
 ComboBox5.SelectedIndex = -1 
 ComboBox6.SelectedIndex = -1 
 ComboBox7.SelectedIndex = -1 
 ComboBox8.SelectedIndex = -1 
 ComboBox9.SelectedIndex = -1 
 TextBox1.Text =   
 TextBox2.Text =   
 TextBox3.Text =   
 TextBox4.Text =   
 TextBox5.Text =   
 TextBox6.Text =   
 TextBox7.Text =    
 TextBox8.Text =   
 TextBox9.Text =   
 TextBox10.Text =    
 TextBox11.Text =   
 datagrid_add（）
 count（）
 结束 如果 
 结束  Sub  
 

任何答案都可以帮到这么多:)

谢谢提前，

解决方案

将你的If语句更改为

 如果 TextBox1.Text =    OR  TextBox3.Text =   _ 
 或 TextBox5.Text =   或 TextBox7.Text =   _ 
  OR  TextBox9.Text =   然后 
 MsgBox（ 不能保存，请填写没收的产品）

Best Re GARDS。

Good Day ! i'm here again ;) i will just ask , how will i disable saving on my database if the textboxes and the comboboxes are empty . it's just that everytime i click the button 'save' it saves even the fields are empty . i already put msgbox on the code saying that 'pls fill out fields' but after that it'll save. all i want to do is, if i click save and the fields are empty it'll not save and pops up a msgbox saying 'plss fill out fields' and if i put data on fields it'll save now :)

here is the code:

Dim command As New OleDbCommand("insert into confiscation(num,REGION,PENRO,CENRO,MONTHDATE,YEARDATE,CONVEYANCE,CONV_UNITOFMEASURE,CONV_EST_VALUE,CHAINSAW,CHAIN_UNITOFMEASURE,CHAIN_EST_VALUE,LOGS,LOGS_UNITOFMEASURE,LOGS_EST_VALUE,FLITCHES,FLITCH_UNITOFMEASURE,FLITCH_EST_VALUE,LUMBER,LUMB_UNITOFMEASURE,LUMB_EST_VALUE) values (@num,@REGION,@PENRO,@CENRO,@MONTHDATE,@YEARDATE,@CONVEYANCE,@CONV_UNITOFMEASURE,@CONV_EST_VALUE,@CHAINSAW,@CHAIN_UNITOFMEASURE,@CHAIN_EST_VALUE,@LOGS,@LOGS_UNITOFMEASURE,@LOGS_EST_VALUE,@FLITCHES,@FLITCH_UNITOFMEASURE,@FLITCH_EST_VALUE,@LUMBER,@LUMB_UNITOFMEASURE,@LUMB_EST_VALUE)")
      command.CommandType = CommandType.Text
      con.Open()

      If TextBox1.Text = "" And TextBox3.Text = "" _
           And TextBox5.Text = "" And TextBox7.Text = "" _
           And TextBox9.Text = "" Then
          MsgBox("cannot be saved, please fill the confiscated product")
      Else
          With command.Parameters
              .AddWithValue("@num,", a)
              .AddWithValue("@REGION,", ComboBox1.Text)
              .AddWithValue("@PENRO,", ComboBox2.Text)
              .AddWithValue("@CENRO,", ComboBox3.Text)
              .AddWithValue("@MONTHDATE,", ComboBox4.Text)
              .AddWithValue("@YEARDATE,", TextBox11.Text)
              .AddWithValue("@CONVEYANCE,", TextBox1.Text)
              .AddWithValue("@CONV_UNITOFMEASURE,", ComboBox5.Text)
              .AddWithValue("@CONV_EST_VALUE,", TextBox2.Text)
              .AddWithValue("@CHAINSAW,", TextBox3.Text)
              .AddWithValue("@CHAIN_UNITOFMEASURE,", ComboBox6.Text)
              .AddWithValue("@CHAIN_EST_VALUE,", TextBox4.Text)
              .AddWithValue("@LOGS,", TextBox5.Text)
              .AddWithValue("@LOGS_UNITOFMEASURE,", ComboBox7.Text)
              .AddWithValue("@LOGS_EST_VALUE,", TextBox6.Text)
              .AddWithValue("@FLITCHES,", TextBox7.Text)
              .AddWithValue("@FLITCH_UNITOFMEASURE,", ComboBox8.Text)
              .AddWithValue("@FLITCH_EST_VALUE,", TextBox8.Text)
              .AddWithValue("@LUMBER,", TextBox9.Text)
              .AddWithValue("@LUMB_UNITOFMEASURE,", ComboBox9.Text)
              .AddWithValue("@LUMB_EST_VALUE,", TextBox10.Text)

          End With

          command.Connection = con
          command.ExecuteNonQuery()
          con.Close()
          MsgBox("success")

          ComboBox1.SelectedIndex = -1
          ComboBox2.SelectedIndex = -1
          ComboBox3.SelectedIndex = -1
          ComboBox4.SelectedIndex = -1
          ComboBox5.SelectedIndex = -1
          ComboBox6.SelectedIndex = -1
          ComboBox7.SelectedIndex = -1
          ComboBox8.SelectedIndex = -1
          ComboBox9.SelectedIndex = -1
          TextBox1.Text = ""
          TextBox2.Text = ""
          TextBox3.Text = ""
          TextBox4.Text = ""
          TextBox5.Text = ""
          TextBox6.Text = ""
          TextBox7.Text = ""
          TextBox8.Text = ""
          TextBox9.Text = ""
          TextBox10.Text = ""
          TextBox11.Text = ""
          datagrid_add()
          count()
      End If
  End Sub

any answer may help so much :)
Thanks in advance,

解决方案

Change your If statement as

If TextBox1.Text = "" OR TextBox3.Text = "" _
             OR TextBox5.Text = "" OR TextBox7.Text = "" _
             OR TextBox9.Text = "" Then
            MsgBox("cannot be saved, please fill the confiscated product")

Best Regards.

这篇关于如果组合框和文本框为空，我将如何禁用保存数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！