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

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

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