- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 时间怎么自动填充？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171152)
-- 发布时间：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.monthend if
-- 发布时间：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)
-- 发布时间：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
--
控件如果是绑定列的，表格数据变动，控件数据自然也变，这就是绑定的目的和作用