- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于农历生日的转换! (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42705)
-- 发布时间：2013/11/19 20:34:00
-- [求助]关于农历生日的转换!
For Each r As DataRow In DataTables("个人信息").DataRows
Dim s As Date = r("出生日期")
Dim nl As new Lunar(s)
Dim ns As Date
ns = New Date(nl.Year,nl.Month,nl.Day)
r("农历生日") = ns
Next
提示错误,搞不懂,请求帮助,呵呵!
此主题相关图片如下：qq图片.jpg
此主题相关图片如下：qq图片.jpg[此贴子已经被作者于2013-11-19 20:53:08编辑过]
-- 发布时间：2013/11/19 21:05:00
--
这样写
For Each r As DataRow In DataTables("个人信息").DataRows
Dim s As Date = r("出生日期")
Dim nl As new Lunar(s)
r("农历生日") = nl.LunarDate
Next
-- 发布时间：2013/11/19 21:24:00
-- [求助]谢谢!~~
谢谢你~! 我想写一段按照输入的日期 查询是否有对应的农历生日的人的筛选! 有没有思路,请帮帮忙!
-- 发布时间：2013/11/19 21:30:00
--
建议多加一列农历日期列，根据阳历日期列得到。这样直接差就行了。
-- 发布时间：2013/11/19 21:35:00
-- [求助]直接查吗?
[求助]直接查吗? 不能直接通过什么方式列出来吗?
-- 发布时间：2013/11/19 21:37:00
--
比如输入一个日期，然后把这个日期转换成农历，然后查询农历列等于这个日期的数据，就行了。
直接筛选，不是么？
-- 发布时间：2013/11/19 22:27:00
-- [求助]十分感谢,呵呵!写好了,真是太感谢了!
[求助]十分感谢,呵呵!写好了,真是太感谢了!
-- 发布时间：2013/11/20 6:27:00
--
请问高手:我按照代码
For Each r As DataRow In DataTables("个人信息").DataRows
Dim s As Date = r("出生日期")
Dim nl As new Lunar(s)
r("农历生日") = nl.LunarDate
Next
试了一下,怎么出现了下面提示
PPE)@(CVFGW1313P3L@W.jpg)
请问如何修改,谢谢!!!
-- 发布时间：2013/11/20 8:32:00
--
看不到图,实在有问题就上个例子吧.
-- 发布时间：2013/11/20 19:27:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
项目上传,请高手指点,谢谢!!!