各位老师晚上辛苦!!
以下代码是在写在“编辑窗口”的“提交”按钮中的,窗口所属表为“员工资料”表。要求:数据提交后,自动填写“流程表”相关列。求助:在“流程表”的行号中自动填写,当前数据的行号不知如何表述,请老师指导!dr("行号") = e.form.Tablename.DataRow("_Identify")。
With Tables("员工资料")
Tables("员工资料").Current("提交") = True
.Current.Locked = True
'------------通知审核表“流程表”
Dim dr As DataRow = DataTables("流程表").AddNew
dr("表名") = e.form.TableName
dr("行号") = e.form.Tablename.DataRow("_Identify")
dr("标识")="已提交"
dr("窗口名称") = e.Form.Name
dr("时间") = Date.Now
End With