以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]一列是日期,一列自动填写相应的日期字符  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53778)
--  作者：ZHX88863808
--  发布时间：2014/7/15 11:31:00
--  [求助]一列是日期,一列自动填写相应的日期字符

我有一日期列A和一字符B,输入日期后,字符列B中即自动填入和日期一样的相应字符,如日期列A中是:2014-07-05,则在字符列B中自动填入相应字符或数字:20140705,请各位老师和高手们写个代码,谢谢!
--  作者：有点甜
--  发布时间：2014/7/15 11:33:00
--  

 编写Datacolchanged代码

 

If e.DataCol.name = "A" Then
    e.DataRow("B") = Format(e.DataRow("A"), "yyyyMMdd")
End If
--  作者：Bin
--  发布时间：2014/7/15 11:34:00
--  
DataColChanged事件

if e.datacol.name="列A" andalso e.datarow.isnull("列A")=false then
    e.datarow("列B")=format(e.datarow("列A"),"yyyyMMdd")
end if
--  作者：ZHX88863808
--  发布时间：2014/7/15 11:51:00
--  

谢谢两位老师！