甜老师，用管理员运行也不行，刚才经过反复几十次的测试，终于找到出现问题的操作流程了，如下：1、进行窗体后，先点增加一行，这时不会出错，默认值也正常出现在记录中，新增一行的代码如下：
Tables("原料采购入库明细").AddNew()
Tables("原料采购入库明细").Current("录入人") = user.Name
Tables("原料采购入库明细").Current("录入日期") = Today()
2、不做任何其他操作，选中刚才新增的一行，点删除按钮，代码如下：
If Tables("原料采购入库明细").Current("审核")=True Then
MessageBox.Show("本条记录已经锁定并且写入工序合并表,如要删除请先解锁!", "提示",MessageBoxButtons.ok, MessageBoxIcon.error)
Else
Dim Result As DialogResult
Result = MessageBox.Show("确认删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("原料采购入库明细").Current.Delete
e.Form.Controls("ComboBox_单据号").ComboList = DataTables("原料采购入库明细").GetComboListString("单据号")
e.Form.Controls("ComboBox_卷号").ComboList = DataTables("原料采购入库明细").GetComboListString("卷号")
e.Form.Controls("ComboBox_审核").ComboList = DataTables("原料采购入库明细").GetComboListString("审核")
End If
End If
3、点同步当前表按钮，代码如下：CurrentTable.DataTable.Load
此时，再点新增一行，就必出现上面的错误了，如果进入系统后，先点同步当前表按钮，之前再按上面流程操作，就不会出错
[此贴子已经被作者于2014-12-23 21:39:46编辑过]
加好友 
发短信
Post By：2014/12/23 20:41:00 [显示全部帖子]
