文章分类 -  可复用脚本

根据条件选择，将值传递为一个组合框的列表
摘要：Function GetArrFromXML(ByRef FieldArr, ByRef Arr1, Xml1) Dim i, j, lsXml, lsChar, liStar, liEnd, lsStar, lsEnd, liLen,Dic1 lsStar = "" lsEnd = "" liLen = Len(lsStar) i = InStr(1,Xml1, "",1)... 阅读全文
posted @ 2005-11-05 17:11 致远钓客 阅读(200) 评论(0) 推荐(0)
退出时检查修改动作
摘要：If DBEngine.IsModified Or DBEngine.IsNewRecord Then ret = DBEngine.MsgBox1("记录发生改变是否保存?", 3) If ret = 1 Then DBEngine.Continue = False '取消 If ret = 6 Then If CheckBefore Then Exit Sub D... 阅读全文
posted @ 2005-11-05 16:51 致远钓客 阅读(153) 评论(0) 推荐(0)