用户组 
易积分435
热心0
好评0
|
打开软件后，单击表格，软件就会闪退后重启，一直找不到原因，麻烦大神帮忙看看，谢谢了，代码如下：
变量 数据库表名 为 文本型
变量 传递索引 为 整数型
变量 剪贴板 为 文本型
变量 启动时间 为 长整数型
变量 索引记忆 为 整数型
事件 主窗口.创建完毕()
置界面顶部边距(70)
置状态栏颜色(标签4.背景颜色)
标签4.标题 = 整数到文本(取年份(取现行时间())) & "年" & 整数到文本(取月份(取现行时间())) & "月份工时表"
变量 节数 为 整数型
变量 格数 为 整数型
变量 格数一 为 整数型
变量 文本 为 文本型()
数据库表名 = "mytable"
保存窗口("工时",本对象)
表格1.背景颜色=无色
表格1.添加单元格("日期",10,-13434625,&HFFE7E7E7)
表格1.添加单元格("编号",10,-13434625,&HFFE7E7E7)
表格1.添加单元格("类型",10,-13434625,&HFFE7E7E7)
表格1.添加单元格("备注",10,-13434625,&HFFE7E7E7)
表格1.添加单元格("工时",10,-13434625,&HFFE7E7E7)
变量循环首 节数=1 至 31
表格1.添加单元格(节数,10,-13434625,&HFFE7E7E7)
表格1.添加单元格("",10,-13434625,&HFFE7E7E7)
表格1.添加单元格("",10,-13434625,&HFFE7E7E7)
表格1.添加单元格("",10,-13434625,&HFFE7E7E7)
表格1.添加单元格("",10,-13434625,&HFFE7E7E7)
变量循环尾
如果 文件是否存在(取存储卡路径() & "/g工时/mydata.db") = 假 则
创建数据库(取存储卡路径() & "/工时/mydata.db")
结束 如果
打开数据库(取存储卡路径() & "/工时/mydata.db") '！！！在进行数据库操作前必须先打开数据库
如果 数据表是否存在(数据库表名) = 假 则
创建数据表(数据库表名,"id text,name text,local text,note text")
判断循环首 格数 < 54
插入记录(数据库表名,"'" & 格数 & "',' ',' ',' '")
格数 = 格数 + 1
判断循环尾
否则
判断循环首 格数一<=53
如果 格数一<=5 或 求余数(格数一,5)=0 则
'留空
否则
文本=分割文本(条件查询(数据库表名,"id='" & 格数一 & "'","-","\n"),"-")
表格1.置单元格文本(格数一,文本(1))
结束 如果
格数一 = 格数一 + 1
判断循环尾
结束 如果
结束 事件
事件 表格1.单元格被单击(单元格索引 为 整数型)
变量 被选 为 文本型
变量 查询结果 为 文本型
变量 分割结果 为 文本型()
被选 = 表格1.取单元格文本(单元格索引)
如果 单元格索引<=5 或 求余数(单元格索引,5)=0 则
'留空
否则
如果 索引记忆>5 则
表格1.置单元格背景颜色(索引记忆,&HFF21C7EF)
结束 如果
传递索引=单元格索引
查询结果=条件查询(数据库表名,"id='" & 传递索引 & "'","-","\n")
分割结果=分割文本(查询结果,"-")
编辑框1.内容=分割结果(1)
表格1.置单元格背景颜色(传递索引,&HFFD6D7D6)
索引记忆=传递索引
结束 如果
结束 事件
事件 按钮1.被单击()
如果 传递索引<=5 或 求余数(传递索引,5)=0 则
弹出提示("请选择对应日期后面的编号/类型/备注/工时项目！")
否则
修改记录(数据库表名,"name='" & 编辑框1.内容 & "'","id='" & 传递索引 & "'")
表格1.置单元格文本(传递索引,编辑框1.内容)
结束 如果
弹出提示("保存完成！")
编辑框1.内容 = ""
结束 事件
事件 表格1.单元格被长按(单元格索引 为 整数型)
传递索引=单元格索引
如果 单元格索引<=5 或 求余数(单元格索引,5)=0 则
'留空
否则
如果 索引记忆>5 则
表格1.置单元格背景颜色(索引记忆,&HFF21C7EF)
结束 如果
表格1.绑定弹出菜单()
表格1.置单元格背景颜色(传递索引,&HFFD6D7D6)
索引记忆=传递索引
结束 如果
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 返回键 则
如果 取启动时间() - 启动时间 > 2000 则
结束程序()
启动时间 = 取启动时间()
否则
关闭数据库()
结束程序()
结束 如果
结束 如果
结束 事件
事件 主窗口.切换完毕()
表格1.获取焦点()
结束 事件
|
-
|
默认
Lavender
Sky
Flowers
Wizard
Snow
Beige
California
City
Dragon
Black
London
Sunset glow
Pink
Cloud
快捷导航
提升卡
变色卡
