|
发表于 2025-2-24 21:19:36
|
显示全部楼层
浙江省金华市
.版本 2
.支持库 iext
.局部变量 局_记录集2, ADODB记录集类
.局部变量 局_计次, 整数型
.局部变量 循环次数, 整数型
.局部变量 第一列, 文本型
.局部变量 第二列, 文本型
.局部变量 SQL语句, 文本型
.局部变量 局_记录集1, ADODB记录集类
.局部变量 第三列, 文本型
.局部变量 句柄, 整数型
.局部变量 类名, 整数型
.局部变量 类名2, 整数型
.局部变量 句柄2, 整数型
' _按钮12_被单击 ()
局_记录集1.打开 (“delete from test1”, 全_数据库, 真, )
.判断循环首 (循环次数 < 超级列表框1.取表项数 ())
循环次数 = 循环次数 + 1
局_记录集2.打开 (“test1”, 全_数据库, , )
局_记录集2.添加 ()
局_记录集2.写文本 (“AB”, 超级列表框1.取标题 (循环次数 - 1, 0))
局_记录集2.写文本 (“AC”, 超级列表框1.取标题 (循环次数 - 1, 1))
局_记录集2.写文本 (“AD”, 超级列表框1.取标题 (循环次数 - 1, 2))
局_记录集2.写文本 (“AE”, 超级列表框1.取标题 (循环次数 - 1, 3))
局_记录集2.写文本 (“A5”, 超级列表框1.取标题 (循环次数 - 1, 4))
局_记录集2.写文本 (“A6”, 超级列表框1.取标题 (循环次数 - 1, 5))
局_记录集2.写文本 (“A7”, 超级列表框1.取标题 (循环次数 - 1, 6))
局_记录集2.写文本 (“A8”, 超级列表框1.取标题 (循环次数 - 1, 7))
局_记录集2.写文本 (“A9”, 超级列表框1.取标题 (循环次数 - 1, 8))
局_记录集2.写文本 (“A0”, 超级列表框1.取标题 (循环次数 - 1, 9))
局_记录集2.写文本 (“A11”, 超级列表框1.取标题 (循环次数 - 1, 10))
局_记录集2.写文本 (“A12”, 超级列表框1.取标题 (循环次数 - 1, 11))
局_记录集2.更新 ()
.判断循环尾 ()
.判断开始 (局_记录集2.更新 ())
信息框 (“保存成功”, #信息图标, , )
|
|