Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间怎么自动填充？


  共有2375人关注过本帖树形打印复制链接

主题：时间怎么自动填充？
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：355 积分：2552 威望：0 精华：0 注册：2020/7/24 10:30:00 		时间怎么自动填充？  发帖心情 Post By：2021/8/19 21:26:00 [只看该作者]

怎么写这个日期，当日期选定的时候，年，季度，日期的时间自动填充，在窗口怎么控制？


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20210819212441.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106199 积分：540118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/19 21:29:00 [只看该作者]

日期valuechanged事件

if e.sender.value <> nothing then
e.form.controls("年").text = e.sender.year
e.form.controls("月").text = e.sender.month
end if
 回到顶部
帅哥哟，离线，有人找我吗？
WELOVEFOX
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：463 积分：3343 威望：0 精华：0 注册：2016/12/21 22:58:00 		  发帖心情 Post By：2021/8/20 10:33:00 [只看该作者]

MARK

If e.sender.value <> Nothing Then
    Dim d As Date = e.sender.value
    
    e.Form.Controls("TextBox1").value = d.year  '年
    e.Form.Controls("TextBox2").value = d.month '月
    e.Form.Controls("TextBox3").value = d.Day '日
    e.Form.Controls("TextBox4").value = Math.Ceiling(d.Month/3) '季
    
    
End If


'Dim d As Date = #10/20/2021#
'Dim d As Date = Date.NOW
'
'Output.Show("年:" & d.Year)
'Output.Show("季:" & Math.Ceiling(d.Month/3))
'Output.Show("月:" & d.Month)
'Output.Show("日:" & d.Day)
'
'Output.Show("星期:" & d.DayOfWeek)
'Output.Show("星期" & "日一二三四五六".Chars(d.DayOfWeek))
'Output.Show("一年第:" & d.DayOfYear & "天")
'
'Output.Show("时:" & d.Hour )
'Output.Show("分:" & d.Minute)
'Output.Show("秒:" & d.Second)
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：355 积分：2552 威望：0 精华：0 注册：2020/7/24 10:30:00 		谢谢  发帖心情 Post By：2021/8/23 14:11:00 [只看该作者]

我把语句写在表事件里面
然后窗口事件里面没有写，居然控件也能自动现实，很奇怪呢。。。。

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("年") = Nothing
        e.DataRow("季度") = Nothing
        e.DataRow("月") = Nothing
    Else
        e.DataRow("年") = e.DataRow("日期").year
        'e.DataRow("季度") = e.DataRow("日期").quarter
        e.DataRow("月") = e.DataRow("日期").month
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106199 积分：540118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/23 14:14:00 [只看该作者]

控件如果是绑定列的，表格数据变动，控件数据自然也变，这就是绑定的目的和作用

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询