大佬这个问题还是有一点点需要咨询

影纸

是这样吗？




补充内容 (2024-9-9 18:34):
选择的选择框放到点击事件里

走一回

我看看能不能改好

走一回

改好了，记得最佳。
天数 框数.e (6.2 KB, 下载次数: 2)

2024-9-9 19:53 上传

点击文件名下载附件
这个源码，除了没有数.据来源，其他的都是完整的。


补充内容 (2024-9-9 19:55):
可以任意修改天数及每天个数，不过数量太多时可能会超出界面。

YourH

刚回来，改了一下，我想你应该是要这个效果吧，分租框超出了窗口，就添加滚动条，调用了彗星滚动条模块，但是这个模块有BUG，我还没找到好的滚动条模块，就将就用着吧，等你自己找到了在换模块，不放心这么模块你也可以在论坛里面去下载滚动条模块替换
天数.zip (252.77 KB, 下载次数: 1)

2024-9-10 00:20 上传

点击文件名下载附件



补充内容 (2024-9-10 09:58):
还有用了精易模块

时髦猪

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

数据库路径 ＝ 取运行目录 () ＋ “\111.MDB”
数据库连接1.连接Access (数据库路径, “”)
记录集1.置连接 (数据库连接1)
加载数据 ()

子程序名	返回值类型	公开	备 注
加载数据

变量名	类 型	静态	数组	备 注
局_数量	整数型
局_分组标题	文本型
局_选择个数	整数型
局_左边	整数型
局_顶边	整数型
i	整数型
j	整数型

记录集1.打开 (“数据”, 2, )
局_数量 ＝ 记录集1.记录数量
调试输出 (局_数量)
如果真 (局_数量 ＞ 0)
重定义数组 (分组框全, 假, 局_数量)
记录集1.到首记录 ()
局_顶边 ＝ 分组框_天.顶边
局_左边 ＝ 选择框_景.左边
计次循环首 (局_数量, i)
记录集1.读文本 (“名称”, 局_分组标题)
记录集1.读整数 (“个数”, 局_选择个数)
复制窗口组件 (分组框_天, 分组框全 [i])
分组框全 [i].标题 ＝ 局_分组标题
分组框全 [i].顶边 ＝ 局_顶边
分组框全 [i].标记 ＝ 到文本 (i)
分组框全 [i].可视 ＝ 真
重定义数组 (选择框全, 假, 局_选择个数)
计次循环首 (局_选择个数, j)
复制窗口组件 (选择框_景, 选择框全 [j])
选择框全 [j].置父窗口 (分组框全 [i])
选择框全 [j].顶边 ＝ 17
选择框全 [j].左边 ＝ 局_左边
局_左边 ＝ 局_左边 ＋ 选择框全 [j].宽度 ＋ 5
选择框全 [j].标题 ＝ “选择框” ＋ 到文本 (j)
选择框全 [j].标记 ＝ 到文本 (i) ＋ “|” ＋ 到文本 (j)
选择框全 [j].可视 ＝ 真
计次循环尾 ()
局_左边 ＝ 选择框_景.左边
局_顶边 ＝ 局_顶边 ＋ 分组框_天.高度 ＋ 10
记录集1.到下一条 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_选择框_景_被单击

变量名	类 型	静态	数组	备 注
局_选择框	选择框
局_标记分割	文本型		0
局_总选择个数	整数型
局_事件	文本型
如果是计数	整数型

局_选择框 ＝ 取事件组件 ()
局_标记分割 ＝ 分割文本 (局_选择框.标记, “|”, )
如果 (局_选择框.选中 ＝ 真)
局_总选择个数 ＝ 局_总选择个数 ＋ 1
局_事件 ＝ “选中”
局_总选择个数 ＝ 局_总选择个数 － 1
局_事件 ＝ “取消选中”

调试输出 (“总选择个数” ＋ 到文本 (局_总选择个数), 局_事件 ＋ “了分组框” ＋ 分组框全 [到整数 (局_标记分割 [1])].标题 ＋ “的第” ＋ 局_标记分割 [2] ＋ “个”)

i支持库列表	支持库注释
eDB	数据库操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 数据库路径 ＝ 取运行目录 () ＋ “\111.MDB”<br /> 数据库连接1.连接Access (数据库路径, “”)<br /> 记录集1.置连接 (数据库连接1)<br /> 加载数据 ()<br /> <br /> .子程序 加载数据<br /> .局部变量 局_数量, 整数型<br /> .局部变量 局_分组标题, 文本型<br /> .局部变量 局_选择个数, 整数型<br /> .局部变量 局_左边, 整数型<br /> .局部变量 局_顶边, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> 记录集1.打开 (“数据”, 2, )<br /> 局_数量 ＝ 记录集1.记录数量<br /> 调试输出 (局_数量)<br /> .如果真 (局_数量 ＞ 0)<br />     重定义数组 (分组框全, 假, 局_数量)<br />     记录集1.到首记录 ()<br />     局_顶边 ＝ 分组框_天.顶边<br />     局_左边 ＝ 选择框_景.左边<br />     .计次循环首 (局_数量, i)<br />         记录集1.读文本 (“名称”, 局_分组标题)<br />         记录集1.读整数 (“个数”, 局_选择个数)<br />         复制窗口组件 (分组框_天, 分组框全 <i>)<br />         分组框全 <i>.标题 ＝ 局_分组标题<br />         分组框全 <i>.顶边 ＝ 局_顶边<br />         分组框全 <i>.标记 ＝ 到文本 (i)<br />         分组框全 <i>.可视 ＝ 真<br />         重定义数组 (选择框全, 假, 局_选择个数)<br />         .计次循环首 (局_选择个数, j)<br />             复制窗口组件 (选择框_景, 选择框全 [j])<br />             选择框全 [j].置父窗口 (分组框全 <i>)<br />             选择框全 [j].顶边 ＝ 17<br />             选择框全 [j].左边 ＝ 局_左边<br />             局_左边 ＝ 局_左边 ＋ 选择框全 [j].宽度 ＋ 5<br />             选择框全 [j].标题 ＝ “选择框” ＋ 到文本 (j)<br />             选择框全 [j].标记 ＝ 到文本 (i) ＋ “|” ＋ 到文本 (j)<br />             选择框全 [j].可视 ＝ 真<br />         .计次循环尾 ()<br />         局_左边 ＝ 选择框_景.左边<br />         局_顶边 ＝ 局_顶边 ＋ 分组框_天.高度 ＋ 10<br />         记录集1.到下一条 ()<br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _选择框_景_被单击<br /> .局部变量 局_选择框, 选择框<br /> .局部变量 局_标记分割, 文本型, , "0"<br /> .局部变量 局_总选择个数, 整数型, 静态<br /> .局部变量 局_事件, 文本型<br /> .局部变量 如果是计数, 整数型<br /> <br /> 局_选择框 ＝ 取事件组件 ()<br /> 局_标记分割 ＝ 分割文本 (局_选择框.标记, “|”, )<br /> .如果 (局_选择框.选中 ＝ 真)<br />     局_总选择个数 ＝ 局_总选择个数 ＋ 1<br />     局_事件 ＝ “选中”<br /> .否则<br />     局_总选择个数 ＝ 局_总选择个数 － 1<br />     局_事件 ＝ “取消选中”<br /> .如果结束<br /> <br /> <br /> 调试输出 (“总选择个数” ＋ 到文本 (局_总选择个数), 局_事件 ＋ “了分组框” ＋ 分组框全 [到整数 (局_标记分割 [1])].标题 ＋ “的第” ＋ 局_标记分割 [2] ＋ “个”)

这样？

xcs1798

走一回 发表于 2024-9-9 19:54
改好了，记得最佳。

这个源码，除了没有数.据来源，其他的都是完整的。

大佬还有点问题，就是我的数据库中有8个选择框，那我每天都调用这8个选择框，第一天到第N天都是调用这8个选择框 ，您这个源码，是把所有的选择框分到了每天中了，谢谢大佬

走一回

xcs1798 发表于 2024-9-10 10:32
大佬还有点问题，就是我的数据库中有8个选择框，那我每天都调用这8个选择框，第一天到第N天都是调用这8个 ...

那这个“还有点问题”的问题，解决了没有呢？

xcs1798

走一回 发表于 2024-9-10 10:38
那这个“还有点问题”的问题，解决了没有呢？

不会解决哇

走一回

xcs1798 发表于 2024-9-10 10:39
不会解决哇

这8个选择框到底要怎么放到分组框里呢，你画个图看看，想怎么安排 这8个选择框？

xcs1798

走一回 发表于 2024-9-10 10:40
这8个选择框到底要怎么放到分组框里呢，你画个图看看，想怎么安排 这8个选择框？ ...