窗口中的数据无法保存

 看看错在哪里

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工资.foxdb

Tables("员工信息").AddNew()
Dim r As Row = Tables("员工信息").current
r("档案号")=e.form.controls("档案号").text
r("姓名")=e.form.controls("姓名").text
r("岗位")=e.form.controls("岗位").text
r("工资级当")=e.form.controls("工资级档").text
r("基本岗位工资")=e.form.controls("基本岗位工资").text
r("职称")=e.form.controls("职称").text
r("职学")=e.form.controls("职学").text
r("入职日期")=e.form.controls("入职日期").text
r("入井补助")=e.form.controls("入井补助").text
r("中班补助")=e.form.controls("中班补助").text
r("夜班补助")=e.form.controls("夜班补助").text
r("女工洗理费")=e.form.controls("女工洗理费").text
r("性别")=e.form.controls("性别").text
r("部门")=e.form.controls("部门").text
r("工数")=e.form.controls("工数").text
r("备注")=e.form.controls("备注").text

Tables("员工信息").Current.Locked = True
Tables("员工信息").Current.Save()
e.Form.Controls("档案号").Value = ""
e.Form.Controls("姓名").Value = ""
e.Form.Controls("岗位").Value = ""
e.Form.Controls("工资级档").Value = ""
e.Form.Controls("基本岗位工资").Value = ""
e.Form.Controls("职称").Value = ""
e.Form.Controls("职学").Value = ""
e.Form.Controls("工龄工资").Value = ""
e.Form.Controls("档案号").Value = ""
e.Form.Controls("入井补助").Value = ""
e.Form.Controls("中班补助").Value = ""
e.Form.Controls("夜班补助").Value = ""
e.Form.Controls("档案号").Value = ""
e.Form.Controls("入职日期").Value = ""
e.Form.Controls("女工洗理费").Value = ""
e.Form.Controls("性别").Value = ""
e.Form.Controls("部门").Value = ""
e.Form.Controls("工数").Value = ""
e.Form.Controls("备注").Value = ""