.版本 2
.程序集 程序集1
.子程序 __启动, 整数型, , , 公开
.局部变量 当前日期, 字符型
.局部变量 文本框1, 文本框型
.局部变量 文本框2, 文本框型
.局部变量 表格, 表格型
.局部变量 行数, 整数型
.局部变量 日期列, 整数型
.局部变量 数值列, 整数型
当前日期 = 获取系统日期()
当前日期 = 当前日期到字符串(当前日期, "m.d")
文本框1 = 创建文本框("文本框1", 100, 100, 100, 20)
文本框2 = 创建文本框("文本框2", 100, 150, 100, 20)
表格 = 打开文件("你的文件路径", "你的表格名称")
行数 = 表格行数(表格)
日期列 = 表格列号(表格, "A")
数值列1 = 表格列号(表格, "B")
数值列2 = 表格列号(表格, "C")
到 (行数)
如果 表格读取文本(表格, 行数, 日期列) = 当前日期 或 表格读取文本(表格, 行数, 日期列) = 当前日期到字符串(当前日期, "m-d") 则
文本框1.文本 = 表格读取文本(表格, 行数, 数值列1)
文本框2.文本 = 表格读取文本(表格, 行数, 数值列2)
如果真
步进
关闭文件(表格)
.子程序 end
|