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;
最新文章
- Visual Studio问题集锦:coloader80.dll未正确安装
- Linux 查找已安装软件的方法
- MVC简单分层思想(连接数据库)
- Codeforces Round #342 (Div. 2)
- jQuery validate基本原则
- 在SSIS包中使用 Checkpoint从失败处重新启动包
- parentNode和parentElement区别
- monogodb3.4安装修改,权限设置
- JavaScript读取对象属性遇到的问题
- 反射reflect
- mysql update 忘加 where 文件恢复
- windows下安装awstats来分析apache的访问日志
- jQuery-理解事件
- 如何面试Web前端开发
- MySQL主键和外键使用及说明
- Android——Activity初学
- gradle 删除指定目录中的文件和目录
- integer encoding vs 1-hot (py)
- 「CF 600E」 Lomsat gelral
- Android BlueDroid(三):BlueDroid蓝牙开启过程enable
热门文章
- 后台管理Models
- [LeetCode&;Python] Problem 226. Invert Binary Tree
- Unity 灯光系统详解
- 配置apache-maven-3.6.0时所遇到的坑(二)
- SQLI DUMB SERIES-5
- Readability Assessment for Text Simplification -paper
- PTA——最大公约数和最小公倍数
- ApplicationContext之getBean方法详解
- 监控页面后退前进,浏览器文档加载事件之pageshow、pagehide
- java 彻底理解 byte char short int float long double