以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170244)
--  作者：riyuan
--  发布时间：2021/7/18 11:22:00
--  [求助]
1、窗口一个table控件，通过sql插入数据后，如何能让tabel控件立即更新数据，显示出来
2、在插入数据是，如何判断根据为空
   Dim tb As  DataTable
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Insert Into mxb (序号,报账日期,报账村社,报账事宜,金额,收款人,卡号,经办人,备注,附件) Values(?,?,?,?,?,?,?,?,?,?)"
Dim b1,b2,b3,b4,b5,b6,b7,b8 As winform.textBox
Dim c1 As WinForm.DateTimePicker
b1 = e.Form.Controls("TextBox1")
c1=e.Form.Controls("datetimepicker1")
b2 = e.Form.Controls("TextBox2")
b3 = e.Form.Controls("TextBox3")
b4 = e.Form.Controls("TextBox4")
b5 = e.Form.Controls("TextBox5")
b6 = e.Form.Controls("TextBox6")
b7 = e.Form.Controls("TextBox7")
b8 = e.Form.Controls("TextBox8")

If c1.Text="" Then
    MessageBox.Show("报账日期不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
  e.Cancel=True
Else
  
End If
If b2.Text="" Then
  MessageBox.Show("报账村社不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
If b4.Text="" Then
    MessageBox.Show("金额不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
If b5.Text="" Then
  MessageBox.Show("收款人不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
If b6.Text="" Then
  MessageBox.Show("卡号不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
If b7.Text="" Then
    MessageBox.Show("经办人不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
End If
cmd.Parameters.Add("@序号",b1.Text)
cmd.Parameters.Add("@报账日期",c1.Value) 
cmd.Parameters.Add("@报账村社",b2.Text)
cmd.Parameters.Add("@报账事宜",b3.Text)
cmd.Parameters.Add("@金额",b4.text)
cmd.Parameters.Add("@收款人",b5.text)
cmd.Parameters.Add("@卡号",b6.text)
cmd.Parameters.Add("@经办人",b7.text)
cmd.Parameters.Add("@备注",b8.text)
cmd.ExecuteNonQuery
现在的语句不能进行判断，请教修改
--  作者：有点蓝
--  发布时间：2021/7/18 20:42:00
--  
1、重新加载数据：http://www.foxtable.com/webhelp/topics/1928.htm
2、
If c1.Text="" Then
    MessageBox.Show("报账日期不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
  return
End If
If b2.Text="" Then
  MessageBox.Show("报账村社不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
return
End If