| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]输入日期即显示星期几 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42240) |
| -- 作者：ZHX241806 -- 发布时间：2013/11/6 19:45:00 -- [求助]输入日期即显示星期几 我在表A中有一日期列A,一个星期几列B,我想在A列中输入日期后,B列就会自动显示该日期的星期几,请求高手帮忙写一个代码,谢谢!!! |
| -- 作者：有点甜 -- 发布时间：2013/11/6 19:57:00 -- 编写datacolchanged事件代码如下。 if e.datacol.name = "列A" then e.datarow("列B") = e.newvalue.dayofweek end if |
| -- 作者：ZHX241806 -- 发布时间：2013/11/6 20:29:00 -- 刚试过,可惜列B没有显示星期几,而是显示Wednesday,是不是那里需要修改? |
| -- 作者：有点甜 -- 发布时间：2013/11/6 20:42:00 -- 如下代码，试试 Dim weeks() As String = {"星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"} If e.DataCol.name = "列A" Then e.DataRow("列B") = weeks(e.newvalue.dayofweek) End If |
| -- 作者：ZHX241806 -- 发布时间：2013/11/6 20:57:00 -- 你上个代码写的是英文星期几,而我其实不懂英文,让你见笑了,十分感谢,谢谢!!! |