主题：[求助]求助老师们日期问题

求教老师们在窗口中输入日期后（如图1所示）在另个表中以这样的格式填入？（如图2所示）
此主题相关图片如下：5555555555.png


此主题相关图片如下：6666666666.png

DataColChanged事件中加个代码就可以了

 

 

俺知道在这个事件中加个代码。。。。问题是代码怎么写搞半天都失败了，只好求助了

设置这个控件的ValidateEdit事件:

 

if e.Sender.Value IsNot Nothing Then

    Dim dt As Date = e.Sender.Value

    dim r As Row =Tables("xxx").Current

    r("年") = dt.Year

    r("月") = dt.Month

    r("日") = dt.Day

End if

问题解决，感谢狐爸

我把代码分享出来给需要的朋友      在窗口日期控件事件Validating输入以下代码

If e.Sender.Value IsNot Nothing Then
    Dim dt As Date = e.Sender.Value
    Dim r As Row =Tables("表A").Current
    r("日期_年") = dt.Year
    r("日期_月") = dt.Month
    r("日期_日") = dt.Day
End If

表中日期_年列的字符为4，日期_月列的字符2，日期_列的字符2