一段代码,跨表将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
End If
Next
此主题相关图片如下:s.jpg
[此贴子已经被作者于2012-11-17 11:02:17编辑过]