以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  备注列添加时间信息  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124000)

--  作者:whx007
--  发布时间:2018/8/28 18:12:00
--  备注列添加时间信息

新增行的时候希望在备注列添加当前时间信息,DataColChanged写如下代码:

 

If e.DataCol.Name <> "备注" Then
    e.DataRow("备注") = "时间: " & Date.Now & iif(e.DataRow("备注")>"", vbcrlf & e.DataRow("备注"), "")
End If

 

当“已付款”列值等于0的时候,备注列不能添加时间信息,大于0和小于0的数值都可以。已付款列是表达式列。

请问什么原因?


--  作者:有点甜
--  发布时间:2018/8/28 18:50:00
--  

1、表达式列,不会触发datacolchanged事件的。

 

2、新增行的时候,你可以在datarowadded事件写代码

 

e.DataRow("备注") = "时间: " & Date.Now


--  作者:whx007
--  发布时间:2018/8/28 20:16:00
--  

甜老师:

在窗口中我有一个控件是备注,用于添加一些信息,按照2的方法,我的保存按钮有这句代码:

 

 Tables("销售订单").Current("备注") = e.Form.Controls("TextBox4").Text

点保存按钮时间信息就没有了,该怎么改代码?

[此贴子已经被作者于2018/8/28 20:19:54编辑过]

--  作者:有点蓝
--  发布时间:2018/8/28 20:18:00
--  
Tables("销售订单").Current("备注") = Tables("销售订单").Current("备注") &  e.Form.Controls("TextBox4").Text
--  作者:whx007
--  发布时间:2018/8/28 21:34:00
--  

谢谢