- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求助老师们日期问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21796)
-- 发布时间：2012/7/25 1:08:00
-- [求助]求助老师们日期问题
求教老师们在窗口中输入日期后（如图1所示）在另个表中以这样的格式填入？（如图2所示）
此主题相关图片如下：5555555555.png
此主题相关图片如下：6666666666.png
-- 发布时间：2012/7/25 1:44:00
--
DataColChanged事件中加个代码就可以了
-- 发布时间：2012/7/25 3:31:00
--
俺知道在这个事件中加个代码。。。。问题是代码怎么写搞半天都失败了，只好求助了
-- 发布时间：2012/7/25 8:24:00
--
设置这个控件的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
-- 发布时间：2012/7/26 0:52:00
--
问题解决，感谢狐爸
-- 发布时间：2012/7/26 1:06:00
--
我把代码分享出来给需要的朋友 在窗口日期控件事件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