2012年8月24日
VB 设置循环，以及弹出messageBox
摘要： Do While Not rs.EOF If (Trim(rs.Fields("Result") <> "OK") And REGION = "JET") Then strError = Trim(rs.Fields("SN")) & "," & Trim(rs.Fields("Description")) & "\n" end ifrs.MoveNextLoopIf strError <> "&q 阅读全文
posted @ 2012-08-24 09:42 KingNiu 阅读(2413) 评论(0) 推荐(0) 编辑