2,726
社区成员
发帖
与我相关
我的任务
分享周末了，再来讨教，表单表格表头之click
表单上有个表格，表格第一列是复选框，用于选择某些行他用，表格数据源是一临时表，复选框和临时表一逻辑字段绑定，我想点击复选框列表头以清除上一次的那些选中状态，全部复原为未选中。思路是将临时表的逻辑字段更新为.f.，然后刷新表格，但是，我在click中添加代码后执行结果是最后被选中那行（活动行）的复选框中的勾一直去不掉！其他的到都是都按照代码的指令乖乖变成.f.了，呵呵。
我知道表格活动行在表格刷新后他还是活动行，可不明白为什么他的状态不随数据源走。
要么他的数据源根本没改变（不可能吧？），要么数据源改变后他又再次刷新了（像再点一次鼠标打勾），但我并未有任何后续键盘鼠标动作啊。
请有经验者给点提示。
我知道表格活动行在表格刷新后他还是活动行，可不明白为什么他的状态不随数据源走。
要么他的数据源根本没改变（不可能吧？），要么数据源改变后他又再次刷新了（像再点一次鼠标打勾），但我并未有任何后续键盘鼠标动作啊。
请有经验者给点提示。
...全文
请发表友善的回复…
发表回复
十豆三 2010-08-30
- 打赏
- 举报
方法一：
将你的列表头的 Click 事件代码改写到一个 Command 按钮中。
方法二：
在表单中添加一个 Command 按钮，假设其 Name 为 MyCMD，
其 Init 事件代码为：
This.Left=-500
目的是移出表单，看不到。
其 SetFocus 方法代码为：
Lparameters tcSetFocusStr
&tcSetFocusStr.
然后在 Grid 中第一列的 Check1 的 InteractiveChange 事件写代码：
Thisform.MyCMD.SetFocus("Thisform.Grid1.Column1.Check1.SetFocus")
将你的列表头的 Click 事件代码改写到一个 Command 按钮中。
方法二：
在表单中添加一个 Command 按钮，假设其 Name 为 MyCMD，
其 Init 事件代码为：
This.Left=-500
目的是移出表单，看不到。
其 SetFocus 方法代码为：
Lparameters tcSetFocusStr
&tcSetFocusStr.
然后在 Grid 中第一列的 Check1 的 InteractiveChange 事件写代码：
Thisform.MyCMD.SetFocus("Thisform.Grid1.Column1.Check1.SetFocus")
十豆三 2010-08-30
- 打赏
- 举报
[Quote=引用 3 楼 ifoxu 的回复:]
谢楼上顶贴。
一楼老大，flush（福禄寿，这是拼音输入法给的提示，不错不错）也不行，没有冲下去，呵呵。
不过在我持续不断的折腾下，终于有点小发现，只要在最后一次复选框选中操作之后表头click点击之前移动一下方向键，那么一切顺利执行。也就是说要把活动焦点移动一下，这样只要加一句模拟键盘操作的命令就行了。
但我这样是抹着石头过河呢，缺乏理论解释说明。虽然可能解决了问题，但不知其所……
[/Quote]
其实原因是不移动记录，你的 Check 没有更新表记录。
谢楼上顶贴。
一楼老大，flush（福禄寿，这是拼音输入法给的提示，不错不错）也不行，没有冲下去，呵呵。
不过在我持续不断的折腾下，终于有点小发现，只要在最后一次复选框选中操作之后表头click点击之前移动一下方向键，那么一切顺利执行。也就是说要把活动焦点移动一下，这样只要加一句模拟键盘操作的命令就行了。
但我这样是抹着石头过河呢，缺乏理论解释说明。虽然可能解决了问题，但不知其所……
[/Quote]
其实原因是不移动记录，你的 Check 没有更新表记录。
iFoxu 2010-08-30
- 打赏
- 举报
老大驾到。
用外部按钮的确没问题，后来试验过。但你第二个转移大法让偶开眼界，原来控件还能这样用。那个宏替换我要再翻翻书才理解。
另外一个新发现是，表头click后活动行不uncheck，可是紧接再来一次click，勾就没了。所以我在原来的代码后又追加了一句，repl 字段 with .f.，再刷新，这样一次click就ok。
谢老大不辞劳苦。
用外部按钮的确没问题，后来试验过。但你第二个转移大法让偶开眼界，原来控件还能这样用。那个宏替换我要再翻翻书才理解。
另外一个新发现是，表头click后活动行不uncheck，可是紧接再来一次click，勾就没了。所以我在原来的代码后又追加了一句，repl 字段 with .f.，再刷新，这样一次click就ok。
谢老大不辞劳苦。
iFoxu 2010-08-29
- 打赏
- 举报
谢楼上顶贴。
一楼老大，flush（福禄寿，这是拼音输入法给的提示，不错不错）也不行，没有冲下去，呵呵。
不过在我持续不断的折腾下，终于有点小发现，只要在最后一次复选框选中操作之后表头click点击之前移动一下方向键，那么一切顺利执行。也就是说要把活动焦点移动一下，这样只要加一句模拟键盘操作的命令就行了。
但我这样是抹着石头过河呢，缺乏理论解释说明。虽然可能解决了问题，但不知其所以然，最后难免会出现后遗症吧。
一楼老大，flush（福禄寿，这是拼音输入法给的提示，不错不错）也不行，没有冲下去，呵呵。
不过在我持续不断的折腾下，终于有点小发现，只要在最后一次复选框选中操作之后表头click点击之前移动一下方向键，那么一切顺利执行。也就是说要把活动焦点移动一下，这样只要加一句模拟键盘操作的命令就行了。
但我这样是抹着石头过河呢，缺乏理论解释说明。虽然可能解决了问题，但不知其所以然，最后难免会出现后遗症吧。
xilaianzxsc 2010-08-29
- 打赏
- 举报
今日周末.祝大家快乐
iFoxu 2010-08-29
- 打赏
- 举报
呵呵，既然来了，顺便说说昨日的一件小遭遇。也是为了找fox资料，在google的指引下在一网站进入下载页，等待了网站设置的几十秒（让看广告）后面对出现的两条让人迷糊的下载路径不知点哪个，选点一个，被领入一广告页面，扫了两眼，关了，但原来熟悉的下载框也跳出来了，点了保存，直了直腰，看了几眼旁边的足球比赛，突然眼前一蓝，心想不妙！果然久违的蓝屏出来了。
电脑自动重启，完了，中毒了。一进入window，硬盘灯狂闪不停，打开任务管理器，发现个不熟悉的文件占用了全部的cpu，赶紧关闭，啊，又一个多年不见的窗口跳了出来，“一分钟后电脑自动关机”！一秒一秒开始倒数，数的人心发慌。下意识打开msconfig看看启动项，那家伙果然已经被设成随机自启动，赶紧去掉勾。电脑里也有杀毒软件，按路径找到扫描，嘟的一声被告知，此文件正在使用，拒绝扫描，呵呵，这就叫“道高一尺，魔高一丈”。
时间到了，重启。才发现我前面msconfig的操作根本没起作用，那厮还是随机自起。硬盘灯继续狂闪，在上传呢！虽然咱这电脑里也没啥值钱东东但也不能让你这样欺负，是吧？拔掉网线！嘿嘿，cpu降下来了，硬盘也正常了。再进入任务管理器，关闭任务，自动关机又跳出来了，在这关键时刻，呵呵，就像课本里说的一样，我想起了中断关机的命令，shutdown -a，执行，果然，读秒器不见了，终于可以消停对付了。
进入注册表里软件自启动的地方，看见不顺眼的统统杀光，定期计划更新的也杀，包括搜狗google全kill，宁可错杀，不可漏网。最关键的是把在system32里那小子砍掉了。然后浏览器缓存清光，回收站垃圾倒掉。运行杀毒软件，啥也没找见。再人工重启，正常，连上网线，还是正常。
那厮名叫updpxe32，google一下，寥寥几条信息，看来是个出道不久的小毒仔。
现在我时不时心里琢磨：这家伙会不会暗地里还潜伏着同伙。。。
电脑自动重启，完了，中毒了。一进入window，硬盘灯狂闪不停，打开任务管理器，发现个不熟悉的文件占用了全部的cpu，赶紧关闭，啊，又一个多年不见的窗口跳了出来，“一分钟后电脑自动关机”！一秒一秒开始倒数，数的人心发慌。下意识打开msconfig看看启动项，那家伙果然已经被设成随机自启动，赶紧去掉勾。电脑里也有杀毒软件，按路径找到扫描，嘟的一声被告知，此文件正在使用，拒绝扫描，呵呵，这就叫“道高一尺，魔高一丈”。
时间到了，重启。才发现我前面msconfig的操作根本没起作用，那厮还是随机自起。硬盘灯继续狂闪，在上传呢！虽然咱这电脑里也没啥值钱东东但也不能让你这样欺负，是吧？拔掉网线！嘿嘿，cpu降下来了，硬盘也正常了。再进入任务管理器，关闭任务，自动关机又跳出来了，在这关键时刻，呵呵，就像课本里说的一样，我想起了中断关机的命令，shutdown -a，执行，果然，读秒器不见了，终于可以消停对付了。
进入注册表里软件自启动的地方，看见不顺眼的统统杀光，定期计划更新的也杀，包括搜狗google全kill，宁可错杀，不可漏网。最关键的是把在system32里那小子砍掉了。然后浏览器缓存清光，回收站垃圾倒掉。运行杀毒软件，啥也没找见。再人工重启，正常，连上网线，还是正常。
那厮名叫updpxe32，google一下，寥寥几条信息，看来是个出道不久的小毒仔。
现在我时不时心里琢磨：这家伙会不会暗地里还潜伏着同伙。。。
十豆三 2010-08-28
- 打赏
- 举报
在复选框的 InteractiveChange 事件 或 Valid 事件 加以下代码试试
Flush
Flush
