主题：[求助]询问农历问题

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