以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]A例如输入日期，B例如何自动获得星期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89957)
--  作者：meiyi
--  发布时间：2016/9/1 23:48:00
--  [求助]A例如输入日期，B例如何自动获得星期

在A例输入日期值，在B例自动会录入A例日期值的星期值。如何实现。
--  作者：njcyt
--  发布时间：2016/9/2 4:15:00
--  
\'计算星期几
Dim weeks() As String = {"星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"}

If e.DataCol.name = "日期" Then \'如果更改的日期列
    If e.DataRow.IsNull("日期") Then \'日期是否为空
        e.DataRow("星期") = Nothing \'如果为空,则清除星期
    Else \'否则计算星期几
        e.DataRow("星期") = weeks(e.newvalue.dayofweek)
    End If
End If
--  作者：meiyi
--  发布时间：2016/9/2 23:27:00
--  

多谢，已解决。
--  作者：meiyi
--  发布时间：2016/9/2 23:28:00
--  

在表达式列能实现吗？
--  作者：狐狸爸爸
--  发布时间：2016/9/3 9:13:00
--  
没办法