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)
Return
End If
If b2.Text="" Then
MessageBox.Show("报账村社不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
Return
End If
If b4.Text="" Then
MessageBox.Show("报账金额不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
Return
End If
If b6.Text="" Then
MessageBox.Show("卡号不能为空","提示",MessageBoxButtons.OK,MessageBoxicon.Question)
Return
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
tb.Load
DataTables("mxb").Load
为什么窗口的tale控件在添加成功的时候不同步刷新表中的记录，要在table控件中点同步表才能刷新
加好友 
发短信
Post By：2021/7/22 21:45:00 [显示全部帖子]
此主题相关图片如下：qq图片20210723112543.png