以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间怎么自动填充?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171152)

--  作者:wukangppbb
--  发布时间:2021/8/19 21:26:00
--  时间怎么自动填充?
怎么写这个日期,当日期选定的时候,年,季度,日期的时间自动填充,在窗口怎么控制?


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20210819212441.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间: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
--  发布时间: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
--  发布时间: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


--  作者:有点蓝
--  发布时间:2021/8/23 14:14:00
--  
控件如果是绑定列的,表格数据变动,控件数据自然也变,这就是绑定的目的和作用