以文本方式查看主题

-  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=12385)
--  作者：yanzhen2010
--  发布时间：2011/8/31 22:31:00
--  如何用代码求年月？
如何用代码求年月？
学习并使用了表达式求年、月，但不知如何用代码求年、月。

请指教，或指示例子出处。
--  作者：狐狸爸爸
--  发布时间：2011/8/31 22:37:00
--  

http://www.foxtable.com/help/topics/1337.htm

 
--  作者：c
--  发布时间：2011/8/31 22:38:00
--  

用表达式计算年月

 

http://www.foxtable.com/help/topics/1285.htm
--  作者：c
--  发布时间：2011/8/31 22:44:00
--  
我又理解错了。
--  作者：yanzhen2010
--  发布时间：2011/8/31 22:53:00
--  
谢谢大家，原来用代码求年月比表达式更好，更容易领会。

If e.DataCol.Name = "住院号" Then
    If e.DataRow.IsNull("住院号") Then
        e.DataRow("sys_简码") = Nothing
        e.DataRow("sys_年") = Nothing
        e.DataRow("sys_月") = Nothing
    Else
        e.DataRow("sys_简码") =left(e.DataRow("患者姓名"),1)
        e.DataRow("sys_年") =year(e.DataRow("开嘱日期"))
        e.DataRow("sys_月") =month(e.DataRow("开嘱日期"))
    End If
End If