| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
绝地游戏外挂辅助教学千里之行 始于足下
共有 308 人关注过本帖
标题:在表格Grid中的Check怪现象?
只看楼主 收藏
mywisdom88
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:65
帖 子:2125
专家分:5179
注 册:2015-3-25
结帖率:98.85%
  已结贴   问题点数:20  回复次数:5   
在表格Grid中的Check怪现象?
* 问题,在grid1动态查询后,增加1个check,绑定 click,绑定 InterActiveChange,也不对..
* 出现奇怪的现象,好像是慢1步...
*下面是绑定 click 执行的代码

LOCAL lc_fytj_table1,lc_fydj_table1,nRo
lc_fytj_table1 = thisform.grid1_table1
lc_fydj_table1 = thisform.grid1_table2

SELECT (lc_fytj_table1) &&增加这个,用鼠标点正常
nRo = RECNO() &&增加这个,用鼠标点正常
GO TOP  &&增加这个,用鼠标点正常

*!* 为了使0.00,NULL显示为空格,这里的"金额,滞纳金,合计"都是数值形式的字符串
SELECT SUM(选择) as 笔数,SUM(VAL(金额)) as 本金合计,SUM(VAL(滞纳金)) as 滞纳金合计,SUM(VAL(合计)) as 应收合计 ;
FROM (lc_fytj_table1)  WHERE 选择 =1 INTO ARRAY ary_hj

thisform.cnt1.text9.Value  = ALLTRIM(STR(NVL(ary_hj[1],0),10,2))
thisform.cnt1.text10.Value = ALLTRIM(STR(NVL(ary_hj[2],0),10,2))
thisform.cnt1.text11.Value = ALLTRIM(STR(NVL(ary_hj[3],0),10,2))
thisform.cnt1.text12.Value = ALLTRIM(STR(NVL(ary_hj[4],0),10,2))

GO nRo  &&增加这个,用鼠标点正常

但用空格选择,好像是慢1个步骤,见鬼
2017-08-07 23:13
mywisdom88
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:65
帖 子:2125
专家分:5179
注 册:2015-3-25
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册
2017-08-07 23:18
吹水佬
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:117
帖 子:4857
专家分:19933
注 册:2014-5-20
  得分:10 
以下是引用mywisdom88在2017-8-7 23:13:56的发言:

* 问题,在grid1动态查询后,增加1个check,绑定 click,绑定 InterActiveChange,也不对..
* 出现奇怪的现象,好像是慢1步...
*下面是绑定 click 执行的代码

试试在绑定的 click 、InterActiveChange 事件代码最开头增加一句:
DODEFAULT()
2017-08-08 10:02
xinjie
Rank: 5Rank: 5
等 级:贵宾
威 望:14
帖 子:210
专家分:348
注 册:2007-8-11
  得分:10 
如果是在VFP9中,可以试试 Select ....With (Buffering = .T.)
2017-08-08 10:11
mywisdom88
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:65
帖 子:2125
专家分:5179
注 册:2015-3-25
  得分:0 
我刚测试上面的方法,好像都还是老样子,用鼠标点正确,但用空格就慢1步


[此贴子已经被作者于2017-8-8 12:06编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2017-08-08 12:04
mywisdom88
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:65
帖 子:2125
专家分:5179
注 册:2015-3-25
  得分:0 
找到了...空格的在 Valid 事件..

BINDEVENT(thisform.grid1.columns[1].check1,"click",thisform,"grid1_select")
BINDEVENT(thisform.grid1.columns[1].check1,"valid",thisform,"grid1_select")

Select ....With (Buffering = .T.)
解决了鼠标问题,相当于我这样
nRo = RECNO() &&增加这个,用鼠标点正常
GO TOP  &&增加这个,用鼠标点正常
...
...
GO nRo  &&增加这个,用鼠标点正常
2017-08-08 13:43







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.196577 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved