yc6610999 发表于 2020-3-9 21:33:07

关于表格问题

打开软件后，单击表格，软件就会闪退后重启，一直找不到原因，麻烦大神帮忙看看，谢谢了，代码如下：
变量 数据库表名 为 文本型
      变量 传递索引 为 整数型
      变量 剪贴板 为 文本型
      变量 启动时间 为 长整数型
      变量 索引记忆 为 整数型
事件 主窗口.创建完毕()
         置界面顶部边距(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.获取焦点()
结束 事件


sayaren 发表于 2020-3-12 09:39:07

我就过来看看你

845786345 发表于 2020-3-13 11:57:35

我就过来看看你

acx520 发表于 2020-9-24 08:15:09

acx520 发表于 2020-9-8 19:17
666666666

666666666

acx520 发表于 2020-10-6 12:34:14

acx520 发表于 2020-9-8 19:17
666666666

666666666

acx520 发表于 2020-12-29 12:35:23

acx520 发表于 2020-9-8 19:17
666666666

666666666

孙玉峰 发表于 2023-3-26 00:15:15

yanjiuyanjiu

zxj 发表于 2023-9-1 21:32:21

厉害
666666666
页: [1]
查看完整版本: 关于表格问题