以文本方式查看主题

-  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=14954)

--  作者:freeaswind
--  发布时间:2011/12/7 21:09:00
--  [求助]一个出输日期和星期的问题

有两个字段:“日期”和“星期”,我想在输出日期的时候,在星期字段里自动输入相应的星期,请问如何实现??

谢谢。


--  作者:狐狸爸爸
--  发布时间:2011/12/7 22:17:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目218.table


--  作者:freeaswind
--  发布时间:2011/12/7 23:15:00
--  
文件版本太高,我打不开。
--  作者:程兴刚
--  发布时间:2011/12/7 23:25:00
--  
先更新!
--  作者:freeaswind
--  发布时间:2011/12/8 22:04:00
--  
如何更新??:)
--  作者:czy
--  发布时间:2011/12/8 22:06:00
--  

DataColChanged事件

 

Select Case e.DataCol.name
    Case "日期"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("星期") = Nothing
        Else
            e.DataRow("星期") = Format(e.DataRow("日期"),"dddd")
        End If
End Select


--  作者:sunbrain
--  发布时间:2011/12/8 22:22:00
--  
以下是引用czy在2011-12-8 22:06:00的发言:

DataColChanged事件

 

Select Case e.DataCol.name
    Case "日期"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("星期") = Nothing
        Else
            e.DataRow("星期") = Format(e.DataRow("日期"),"dddd")
        End If
End Select

谢谢,我也正参考。
--  作者:freeaswind
--  发布时间:2011/12/8 22:30:00
--  

虽然看不懂代码,但我还是成功了,谢谢。