专家坐堂-[求助]用sql语句插入用部分数据没有进去Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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