主题：[求助]一列输入公历日期，一列自动填入农历日期代码

表A中一列是公历日期，一列是农历日期，在公历日期列中输入公历日期，则农历日期列中自动显示这一天的农历日期，请大红袍老师帮忙写个代码，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:公历农历日期.table

参考

 

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

 

datacolchanged事件

 

If e.DataCol.name = "公历日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("农历日期") = Nothing
    Else
        e.DataRow("农历日期") = (New Lunar(e.NewValue)).LunarDate
    End If
End If

谢谢老师，这里我想公历日期生成农历日期后，再农历日期自动生成农历年、农历月、农历日，如下面项目，请帮忙再写个代码，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:公历农历年月日.table

If e.DataCol.name = "公历日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("农历日期") = Nothing
    Else
        e.DataRow("农历日期") = (New Lunar(e.NewValue)).LunarDate
    End If
Else If e.DataCol.name = "农历日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("农历年") = Nothing
        e.DataRow("农历月") = Nothing
        e.DataRow("农历日") = Nothing
    Else
        e.DataRow("农历年") = e.newvalue.Year
        e.DataRow("农历月") = e.newvalue.Month
        e.DataRow("农历日") = e.newvalue.Day
    End If
End If

 

 

谢谢老师！