Dim mj As WinForm.ComboBox = e.Form.Controls("mj")
Dim sbdh As WinForm.TextBox = e.Form.Controls("sbdh")
Dim wh As WinForm.TextBox = e.Form.Controls("wh")
Dim wjrq As WinForm.DateTimePicker = e.Form.Controls("wjrq")
Dim wjtm As WinForm.TextBox = e.Form.Controls("wjtm")
Dim xh As WinForm.TextBox = e.Form.Controls("xh")
Dim yh As WinForm.TextBox = e.Form.Controls("yh")
Dim ys As WinForm.TextBox = e.Form.Controls("ys")
Dim zrz As WinForm.TextBox = e.Form.Controls("zrz")
Dim bgqx As WinForm.ComboBox = e.Form.Controls("bgqx")
Dim bz As WinForm.TextBox = e.Form.Controls("bz")
Dim jh As WinForm.TextBox = e.Form.Controls("jh")
Dim nd As WinForm.TextBox = e.Form.Controls("nd")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Insert Into wada_jnxx (室编档号,年度,文件题名,责任者,文件日期,页号,页数,序号,密级,保管期限,备注,文号,件号)Values(?,?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@室编档号",sbdh.Text)
cmd.Parameters.Add("@年度",nd.Text)
cmd.Parameters.Add("@文件题名",wjtm.Text)
cmd.Parameters.Add("@责任者",zrz.Text)
cmd.Parameters.Add("@文件日期",Date.Today)
cmd.Parameters.Add("@页号",yh.Text)
cmd.Parameters.Add("@页数",ys.Text)
cmd.Parameters.Add("@序号",xh.Text)
cmd.Parameters.Add("@密级",mj.Text)
cmd.Parameters.Add("@保管期限",bgqx.Text)
cmd.Parameters.Add("@备注",bz.Text)
cmd.Parameters.Add("@文号",wh.Text)
cmd.Parameters.Add("@件号",jh.Text)
cmd.ExecuteNonQuery
这是保存之后的数据：
此主题相关图片如下：保存.png
加好友 
发短信
Post By：2020/5/22 18:26:00 [只看该作者]
