- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]一列输入公历日期，一列自动填入农历日期代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79564)
-- 发布时间：2016/1/5 7:08:00
-- [求助]一列输入公历日期，一列自动填入农历日期代码
表A中一列是公历日期，一列是农历日期，在公历日期列中输入公历日期，则农历日期列中自动显示这一天的农历日期，请大红袍老师帮忙写个代码，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:公历农历日期.table |
-- 发布时间：2016/1/5 9:14:00
--
参考
http://www.foxtable.com/help/topics/1274.htm
-- 发布时间：2016/1/5 9:17:00
--
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
-- 发布时间：2016/1/5 21:29:00
--
谢谢老师，这里我想公历日期生成农历日期后，再农历日期自动生成农历年、农历月、农历日，如下面项目，请帮忙再写个代码，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:公历农历年月日.table |
-- 发布时间：2016/1/5 21:37:00
--
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
-- 发布时间：2016/1/5 21:56:00
--
谢谢老师！