超级列表框、报表双击修改表项

取表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项信息) ' 当前取表项行、列位置
输出调试文本 (“行：” ＋ 到文本 (表项信息.行))
输出调试文本 (“列：” ＋ 到文本 (表项信息.列))
输出调试文本 (“----------------------------------”)
.如果真 (表项信息.行 ≠ -1)
取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 表项信息.行, 表项坐标) ' 取出当前表项行列坐标点
编辑框1.顶边 ＝ 超级列表框1.顶边 ＋ 表项坐标.y ＋ 1
编辑框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
.如果真 (表项信息.列 ＝ 0)
编辑框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
.如果真结束
.计次循环首 (表项信息.列, i)
编辑框1.左边 ＝ 编辑框1.左边 ＋ 超级列表框1.取列宽 (i － 1)
.计次循环尾 ()
编辑框1.宽度 ＝ 超级列表框1.取列宽 (表项信息.列)
编辑框1.内容 ＝ 超级列表框1.取标题 (表项信息.行, 表项信息.列)
编辑框1.可视 ＝ 真
超级列表框1.禁止重画 ()
编辑框1.获取焦点 ()
编辑框1.被选择字符数 ＝ -1 ' 全选中编辑框中的内容