[求助]关于字符转换日期（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于字符转换日期（已解决）

共有9722人关注过本帖树形打印复制链接主题：[求助]关于字符转换日期（已解决）

yyzlxc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]关于字符转换日期（已解决） 发帖心情

Post By：2012/11/16 22:16:00 [只看该作者]

一段代码，跨表将8位字符转换为日期，由于zzrq列有空行，加了空值的判断代码还是出错，如何修改代码，请各位老师指教，谢谢！！

For Each dr As DataRow In DataTables("名册").DataRows

Dim pr As DataRow

If dr.IsNull("编号") Then

dr("终止日期") = Nothing

Else

pr = DataTables("XB").Find("[bh] = '" & dr("编号") & "'And [zzrq] Is Not Null")

If pr IsNot Nothing Then

dr("终止日期") = new Date(pr("zzrq").Substring(0,4),pr("zzrq").Substring(4,2),pr("zzrq").Substring(6,2))

Else

dr("终止日期") = Nothing

End If

此主题相关图片如下：s.jpg

[此贴子已经被作者于2012-11-17 11:02:17编辑过]

明丰

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：558 积分：4352 威望：0 精华：2 注册：2011/4/18 8:27:00

Post By：2012/11/17 8:17:00 [只看该作者]

“zzrq”列输入的值长度必须是8位，下面的代码：

If pr IsNot Nothing Then

改为：

If pr IsNot Nothing And pr("zzrq").length = 8 Then

试一下。

muhua	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/11/17 9:30:00 [只看该作者] 用户已被锁定

yyzlxc

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/11/17 11:02:00 [只看该作者]

谢谢明丰和muhua两位老师的指教，代码调整后，问题解决。再次感谢两位老师的帮助。

For Each dr As DataRow In DataTables("名册").DataRows

Dim pr As DataRow

If dr.IsNull("编号") Then

dr("终止日期") = Nothing

Else

pr = DataTables("XB").Find("[bh] = '" & dr("编号") & "'","zzrq Desc")

If pr IsNot Nothing Then

If pr("zzrq").length = 8 Then

dr("终止日期") = new Date(pr("zzrq").Substring(0,4),pr("zzrq").Substring(4,2),pr("zzrq").Substring(6,2))

Else

dr("终止日期") = Nothing

End If

Else

dr("终止日期") = Nothing

End If

下一主题 >> << 上一主题

主题：[求助]关于字符转换日期（已解决）