- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153575)
-- 发布时间：2020/8/15 11:01:00
-- 求代码
如图所示，当“到期日期”小于等于当天日期时，“到期金额”自动获取“金额”中的数据？
此主题相关图片如下：qq截图20200815105506.jpg
-- 发布时间：2020/8/15 11:12:00
--
参考：http://www.foxtable.com/webhelp/topics/0625.htm
datacolchanged事件
Select Case e.DataCol.Name
Case "到期日期","金额"
If e.DataRow.IsNull("到期日期") orelse e.DataRow.IsNull("金额") Then
Case "到期日期","金额"
If e.DataRow.IsNull("到期日期") orelse e.DataRow.IsNull("金额") Then
e.DataRow("到期金额") = Nothing
elseif e.DataRow("到期日期") <= date.today
e.DataRow("到期金额") = e.DataRow("金额")
End If
End Select
End If
End Select
-- 发布时间：2020/8/15 11:15:00
--
多谢了
-- 发布时间：2020/8/15 12:23:00
--
现在还有个问题，就是当前日期会变动，"到期金额"随之可能也会有变动，而"到期日期"和"金额"录入后就确定了，不修改的话就不再变动了，这样一来，"到期金额"就无法自动获取当前日期变动后的“金额”数据了
-- 发布时间：2020/8/15 13:37:00
--
重置列：http://www.foxtable.com/webhelp/topics/1469.htm
afteropenproject事件
DataTables("表名").DataCols("到期日期").RaiseDataColChanged()