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
现在的语句不能进行判断，请教修改
加好友 
发短信
Post By：2021/7/18 11:22:00 [显示全部帖子]
