摘要： 0 thenMyNew = Right(s, Len(s) - (InStrRev(MyNew, "\", -1, vbTextCompare)))end ifon error resume nextset File=fso.GetFile(MyOld)File.Name=MyNewif err.number=0 thenRen=Trueend iferr.clearEnd If'````````... 阅读全文

摘要： 0 then Set OutRs = Conn.Execute(sql) else Call Conn.Execute(sql) OutRs=1 end ifEnd SubPublic Sub SelectDb(Table, Where,OutRs)Dim sqlstrsqlstr... 阅读全文

摘要： 雨水说天空也会落泪，玫瑰说爱情总有枯萎，离别说寂寞无滋无味，咖啡说活着得习惯苦味。路一走就累，酒一喝就醉，雨一碰就碎，只有兄弟最珍贵！在相遇的城市迷失之前，寻找一张似曾相识的脸，缘分划过我身边，留下真实的思念。是我寂寞，你才出现，还是你的出现，让我自怜。握在手中的风筝断了线。只要相信，就能相见，两条平行线也会有交汇的一天。如果因为我矮，你鄙视我，我会将你的头颅砍下来弥补这个差距。－－拿破仑 阅读全文