本帖最后由 mycwx 于 2011-10-20 12:01 编辑
.版本 2
外部数据库1.打开MDB数据库 (取运行目录 () + “\111.mdb”, , , , )
记录 = 外部数据库1.查询 (“select * from 名称”)
记录数 = 到数值 (外部数据库1.读 (外部数据库1.查询 (“select count(*) as '记录总数' from 名称”), 1))
外部数据库1.到前一记录 (记录)
.判断循环首 (外部数据库1.尾记录后 (记录) = 假)
.如果 (文本 = “”)
文本 = 到文本 (外部数据库1.读 (记录, 2))
.否则
文本 = 文本 + “,” + 到文本 (外部数据库1.读 (记录, 2))
.如果结束
外部数据库1.到后一记录 (记录)
.判断循环尾 ()
外部数据库1.关闭记录集 (记录)
.子程序 复制标签
.局部变量 横向位置, 整数型, , ,
.局部变量 纵向位置, 整数型, , ,
.局部变量 标签, 标签, , , 临时变量
.局部变量 外形框, 外形框, , , 临时变量
.局部变量 计次, 整数型
数据库连接 ()
复制大厅个数 = 记录数
大厅标题 = 分割文本 (文本, “,”, )
.变量循环首 (2, 8, 1, 纵向位置)
.变量循环首 (2, 8, 1, 横向位置)
复制窗口组件 (外形框11, 外形框)
复制窗口组件 (标签11, 标签)
置父窗口 (标签.取窗口句柄 (), 外形框.取窗口句柄 ())
标签变量 [横向位置] [纵向位置] = 标签
外形框变量 [横向位置] [纵向位置] = 外形框
标签变量 [横向位置] [纵向位置].移动 (2, 2, 标签11.宽度, 标签11.高度)
外形框变量 [横向位置] [纵向位置].移动 (外形框11.左边 + (横向位置 - 1) × (外形框11.宽度 + 1), 外形框11.顶边 + (外形框11.高度 + 1) × (纵向位置 - 1), 外形框11.宽度, 外形框11.高度)
标签.可视 = 真
标签.标题 =大厅标题[横向位置]
外形框.可视 = 真
.变量循环尾 ()
.变量循环尾 ()
标签变量 [1] [1] = 标签
外形框变量 [1] [1] = 外形框
当前行 = 1
当前列 = 1
请教一下,如果要标签显示出标题要怎么写呢?红色字体的写法写出来的标题,每个横向的内容都是一样的!
123
123
而我想要的效果是
123
456
789
|