以文本方式查看主题

-  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=160432)
--  作者：yfy13338431925
--  发布时间：2021/2/2 14:23:00
--  时间格式能包含星期吗？

蓝老师：

时间格式能直接带出星期么？
--  作者：有点蓝
--  发布时间：2021/2/2 14:27:00
--  
http://www.foxtable.com/webhelp/topics/0362.htm
--  作者：yfy13338431925
--  发布时间：2021/2/2 15:13:00
--  

蓝老师：提取的值怎么变成中文

Select Case e.DataCol.Name
    Case "日期"
    If e.NewValue IsNot Nothing Then
        e.DataRow("月") = e.NewValue.Month
e.DataRow("日") = e.NewValue.Day
e.DataRow("星期") = e.NewValue.DayOfWeek
    End If
End Select
--  作者：有点蓝
--  发布时间：2021/2/2 15:18:00
--  
请仔细看看2楼帮助
--  作者：yfy13338431925
--  发布时间：2021/2/4 20:15:00
--  

从窗口的DateTimePicker向表中月份列填充月份数据，星期列填充中文星期，该怎样做？

试写了下面代码，不知如何下手

Dim tm As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim r As Row = Tables("表A").AddNew()

 Tables("表A").Current("月份")=e.Sender.WriteValue(format(tm,"mm") )

r.save()

[此贴子已经被作者于2021/2/4 20:31:16编辑过]
--  作者：有点蓝
--  发布时间：2021/2/4 20:35:00
--  

Dim tm As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim r As Row = Tables("表A").AddNew()

r("月份")=tm.value.month

r("星期")=format(tm.value,"dddd")

r.save()