易语言易之表增强版

本例程演示了有关报表、数据处理框架方面的基本内容,您可以将她进一步开发以获得更强的功能。本程序也可以用作编排报表模板文件。

通用对话框1.标题 ＝ “请输入欲添加进来的表格文件名：”
通用对话框1.类型 ＝ 0
不要在前 ()
.如果真 (通用对话框1.打开 () ＝ 真)
.如果 (数据源2.从文件读 (通用对话框1.文件名) ＝ 假) ' 数据源2仅在此处使用
信息框 (“打开欲添加文件失败！”, #错误图标, “错误”)
.否则
数据源1.添加 (数据源2, , )
设置修改 ()
数据源2.初始尺寸 (1, 1) ' 因为使用的是通用提供者2,所以可以初始化尺寸.在此处清除通用提供者2内的数据.
.如果结束

.如果真结束
状态条1.置文本 (4, “总行数 = ” ＋ 到文本 (数据源1.取行数 ()))
状态条1.置文本 (5, “总列数 = ” ＋ 到文本 (数据源1.取列数 ()))

数据源1.置字体属性 (表格1.取光标行号 (), 表格1.取光标列号 (), 表格1.取选择行数 (), 表格1.取选择列数 (), 字体属性)
数据源1.置字体名 (表格1.取光标行号 (), 表格1.取光标列号 (), 表格1.取选择行数 (), 表格1.取选择列数 (), 字体对话框.字体名称)
字体尺寸 ＝ 字体对话框.字体大小 × 10 ÷ 72 ÷ 0.0394 ' 由于字体对话框返回的字体尺寸是以1/72英寸为单位,现将其转换为0.1MM.
数据源1.置字体尺寸 (表格1.取光标行号 (), 表格1.取光标列号 (), 表格1.取选择行数 (), 表格1.取选择列数 (), 字体尺寸)