以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现公历转历  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98791)
--  作者：zyxhx
--  发布时间：2017/4/7 10:01:00
--  如何实现公历转历
请专家指点：数据表中一列为公历日期，如何将另一列自动写入农历日期。
--  作者：有点青
--  发布时间：2017/4/7 10:28:00
--  

 参考

 

http://www.foxtable.com/webhelp/scr/1274.htm

 
--  作者：zyxhx
--  发布时间：2017/4/7 12:16:00
--  
我看了几遍不晓得如何具体应用，请专家写下函数，谢谢！
数据表列名：第一列：公历日期，转换为第二列：农历日期。
--  作者：有点蓝
--  发布时间：2017/4/7 14:36:00
--  


Select Case e.DataCol.Name
    Case "第一列"
        If e.newvalue IsNot Nothing
            Dim ln As New Lunar(e.newvalue )
            e.DataRow("第二列") = ln.LunarDate
        End If
End Select
--  作者：有点青
--  发布时间：2017/4/7 14:43:00
--  

DataColChanged事件

 

If e.DataCol.name = "第三列" Then
    If e.NewValue = Nothing Then
        e.DataRow("第四列") = Nothing
    Else
        Dim ln As New Lunar(e.newvalue)
        e.DataRow("第四列") = ln.LunarDate
    End If
End If
--  作者：zyxhx
--  发布时间：2017/4/7 17:38:00
--  
非常感谢！