要命啊，日期也用字符型：：：：： 这样吧：
If ColNames(c) = "出生日期" Then Rs2.Cells(r + 1, c).Text ＝tb.Rows(r)(ColNames(c)).split("月")(0) & "月"
.............
end if
加好友 
发短信
Post By：2010/7/26 20:46:00 [显示全部帖子]
