各位老师新年好！！在我的项目中，有如下一个窗口，是父窗口和子窗口同屏，如下图：
此主题相关图片如下：1.png
表“资质证件”与表“证书专业明细”建立了关联，在子表“证书专业明细”表属性的“DataColChanged”中的代码如下，目的是想在窗口中操作时，当子表中的“到期日期”值发生改变后，自动将“登记人”和“登记时间”填入到表中，然而，运行时，总是失败，不能自动填入，而单独在子表中（非窗口）操作又是可以自动填入“登记人”和“登记时间”，找不到如何更正，请大师帮忙，谢谢了！！
Select Case e.DataCol.Name
Case "培训日期","有效期"
If e.DataRow.IsNull("培训日期") OrElse e.DataRow.IsNull("有效期") Then
e.DataRow("到期日期") = Nothing
If e.DataRow.Isnull("培训日期") Then
e.DataRow("有效期") = Nothing
MessageBox.show("培训日期不能空!","操作错误!",MessageBoxButtons.OK,MessageBoxicon.Error)
End If
Else
Select Case e.DataRow("有效期")
Case "一年"
e.DataRow("到期日期") = e.DataRow("培训日期").AddYears(1)
Case "两年"
e.DataRow("到期日期") = e.DataRow("培训日期").AddYears(2)
Case "三年"
e.DataRow("到期日期") = e.DataRow("培训日期").AddYears(3)
End Select
Tables("证书专业明细").Current("登记人") = _UserName
Tables("证书专业明细").Current("登记时间") = Date.now
End If
End Select
窗口运行如下图：
此主题相关图片如下：2.png
加好友 
发短信
Post By：2019/2/11 22:40:00 [显示全部帖子]
