| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1907 人关注过本帖
标题:在表格Grid中的Check怪现象?
只看楼主 加入收藏
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3146
专家分:8408
注 册:2015-3-25
结帖率:98.98%
收藏
已结贴  问题点数: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

  = ALLTRIM(STR(NVL(ary_hj[1],0),10,2))
= ALLTRIM(STR(NVL(ary_hj[2],0),10,2))
= ALLTRIM(STR(NVL(ary_hj[3],0),10,2))
= ALLTRIM(STR(NVL(ary_hj[4],0),10,2))

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

但用空格选择,好像是慢1个步骤,见鬼
搜索更多相关主题的帖子: Check 增加 thisform 鼠标 SUM 
2017-08-07 23:13
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3146
专家分:8408
注 册:2015-3-25
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
2017-08-07 23:18
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10539
专家分:42927
注 册: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: 7Rank: 7Rank: 7
等 级:贵宾
威 望:19
帖 子:271
专家分:520
注 册:2007-8-11
收藏
得分:10 
如果是在VFP9中,可以试试 Select ....With (Buffering = .T.)
2017-08-08 10:11
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3146
专家分:8408
注 册:2015-3-25
收藏
得分:0 
我刚测试上面的方法,好像都还是老样子,用鼠标点正确,但用空格就慢1步
图片附件: 游客没有浏览图片的权限,请 登录注册


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

2017-08-08 12:04
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3146
专家分:8408
注 册: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
快速回复:在表格Grid中的Check怪现象?
数据加载中...
 
   



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

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