TdxMemData 的Bug和使用
aa.CopyFromDataSet(acdsBase);//克隆一个,与LoadFromDataSet区别,如果设置了Field,那么L只会导入设置的部分,而C则是全部复制过来
TdxMemData不能使用Filter。
ID:=aa.FieldByName('ID').AsString;
aa.Filter:='ParentID='+QuotedStr(ID);
if aa.FindFirst then
repeat
Prompt(aa.FieldByName('Name').AsString);
until aa.FindNext=false;
无效。
或许是我不会用。
谁会,请指教。
============================================================================
09-02-23
一次偶然的机会找到一点代码。
procedure TfrmReportEmpSalary.dxBarButton2Click(Sender: TObject);
begin
inherited;
dxMemData1.DisableControls;
// dxMemData1.ProgrammedFilter:=true;//这里可以不要
dxMemData1.Filtered:=false;
dxMemData1.ProgrammedFilter:=false;//设置false,直接用OnFilterRecord事件来判断。
// dxMemData1.Filter:='EnterpriseNo='+QuotedStr('DYJQY');//这里写什么都没用。
dxMemData1.Filtered:=true;
dxMemData1.EnableControls;
end;
procedure TfrmReportEmpSalary.dxBarButton3Click(Sender: TObject);
begin
inherited;
with dxMemData1 do
begin
DisableControls;
try
// ProgrammedFilter:=false;//这里可以不要
Filtered:=false;
ProgrammedFilter:=true;//设置true,代码控制
First;
while not eof do
begin
if dxMemData1.FieldByName('EnterpriseNo').AsString='DYJQY' then
FilterList.Add(Pointer(dxMemData1.CurRec+1));//是保存在FilterList里的。
Next;
end;
Filtered:=true;
finally
EnableControls;
end;
end;
end;
procedure TfrmReportEmpSalary.dxMemData1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
inherited;
Accept:=DataSet.FieldByName('EnterpriseNo').AsString='EJXDQY';
end;
procedure TfrmReportEmpSalary.dxBarButton4Click(Sender: TObject);
begin
inherited;
Prompt(IntToStr(dxMemData1.FilterList.Count));
end;
TdxMemData 的Bug和使用的更多相关文章
- Tomcat一个BUG造成CLOSE_WAIT
之前应该提过,我们线上架构整体重新架设了,应用层面使用的是Spring Boot,前段日子因为一些第三方的原因,略有些匆忙的提前开始线上的内测了.然后运维发现了个问题,服务器的HTTPS端口有大量的C ...
- a标签点击跳转失效--IE6、7的奇葩bug
一般运用a标签包含img去实现点击图片跳转的功能,这是前端经常要用到的东西. 今天遇到个神奇的bug:如果在img上再包裹一层div,而且div设置了width和height,则图片区域点击时,无任何 ...
- 关于 Chrome 浏览器中 onresize 事件的 Bug
我在写插件时用到了 onresize 事件,在反复地测试后发现该事件在 Chrome 及 Opera(内核基本与 Chrome 相同,以下统称 Chrome)浏览器打开时就会执行,这种情况也许不能算作 ...
- Chrome出了个小bug:论如何在Chrome下劫持原生只读对象
Chrome出了个小bug:论如何在Chrome下劫持原生只读对象 概述 众所周知,虽然JavaScript是个很灵活的语言,浏览器里很多原生的方法都可以随意覆盖或者重写,比如alert.但是为了保证 ...
- 一个粗心的Bug,JSON格式不规范导致AJAX错误
一.事件回放 今天工作时碰到了一个奇怪的问题,这个问题很早很早以前也碰到过,不过没想到过这么久了竟然又栽在这里. 当时正在联调一个项目,由于后端没有提供数据接口,于是我直接本地建立了一个 json ...
- 了不起的 nodejs-TwitterWeb 案例 bug 解决
了不起的nodejs算是一本不错的入门书,不过书中个别案例存在bug,按照书中源码无法做出和书中相同效果,原本兴奋的心情掺杂着些许失落. 现在我们看一下第七章HTTP,一个Twitter Web客户端 ...
- 应该是Angular2的一个bug?
为了应对未来的趋势,及时赶上下一趟互联网技术,我最近也在通过具体项目研究angular2,首先必须要吐槽的是,学习angular2的成本本身不高,但是一堆的工具.配置实在让人 很是焦灼,就像asp.n ...
- 记录一次bug解决过程:数据迁移
一 总结 不擅长语言表达,勤于沟通,多锻炼 调试MyBatis中SQL语法:foreach 问题:缺少关键字VALUES.很遗憾:它的错误报的让人找不着北. 二 BUG描述:MyBatis中批量插入数 ...
- 关于MJRefresh的下拉加载数据bug
当没有更多数据的时候显示NoMoreData 我的理解是先结束刷新再显示没有更多 今天之前一直没发现有问题 贴之前的代码 [self.collectionView reloadData]; [self ...
随机推荐
- threejs 空间位置转为屏幕像素xy位置
function createVector(x, y, z, camera, width, height) { var p = new THREE.Vector3(x, y, z); var vect ...
- [LeetCode&Python] Problem 541. Reverse String II
Given a string and an integer k, you need to reverse the first k characters for every 2k characters ...
- [LeetCode&Python] Problem 383. Ransom Note
Given an arbitrary ransom note string and another string containing letters from all the magazines, ...
- Codeforces483B. Friends and Presents(二分+容斥原理)
题目链接:传送门 题目: B. Friends and Presents time limit per test second memory limit per test megabytes inpu ...
- ACM-ICPC 2018 沈阳赛区网络预赛-D:Made In Heaven(K短路+A*模板)
Made In Heaven One day in the jail, F·F invites Jolyne Kujo (JOJO in brief) to play tennis with her. ...
- 字符串转json格式
方法一:var json = JSON.parse(str)方法二:eval
- 环境变量、cp、mv、cat 等命令
1.环境变量: PATH 个人理解 环境变量,即是所有命令文件所存放的目录,或是人为的定义的目录,(命令文件所存放的目录,当输入一个命令的时候,系统会自动找到且不报错,并不需要输入绝对路径,来运行相关 ...
- C++学习(七)(C语言部分)之 输入
输入学习时的笔记(其实也没什么用,留着给自己看的) 输出是指 把内容打印到控制台窗口 输入是指 把内容输入到程序里 scanfscanf 从键盘获取内容到程序里格式占位符+变量要加取地址符 1.格式占 ...
- dp 优化 F2. Pictures with Kittens (hard version)
dp的优化可能是自己的弱项吧 F1中n*n*n的复杂度强行过去了 F2就无能为力了: 状态转移 dp[ i ] [ j ] 第一个i存的是位置 1-n; j是放入数字的个数 然后F1就暴力过去了 ...
- Python基础-使用paramiko
一:简介 paramiko是用python语言写的一个模块,遵循SSH2协议,支持以加密和认证的方式,进行远程服务器的连接. 由于使用的是python这样的能够跨平台运行的语言,所以所有python支 ...