以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]询问农历问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16843)
--  作者：Ipad3
--  发布时间：2012/2/25 12:50:00
--  [求助]询问农历问题

通过日期列，计算农历，这段代码错在什么地方啊

 

Dim dr As  DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "日期"
        If dr.IsNull("日期")  Then  \'如果日期为空
            dr("农历") = Nothing
        Else
            dr("农历") = dr("日期").LunarDate
        End If
End Select
 
--  作者：blackzhu
--  发布时间：2012/2/25 15:25:00
--  

Dim dr As  DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "日期"
        If dr.IsNull("日期")  Then  \'如果日期为空
            dr("农历") = Nothing
        Else

             Dim ln As New Lunar(dr("日期"))    
            dr("农历") = ln.LunarDate

        End If
End Select
 
--  作者：小猪鑫鑫
--  发布时间：2012/2/25 16:54:00
--  
学习,谢谢blackzhu!