clientdataset过滤后在客户端使用RecordCount显示只有一条,把cds.xmldata赋值到data后提交到服务器端,却显示RecordCount是没有过滤前的客户端
vBabyCheck[2] := dmData.cdsXWXL.XMLData; Showmessage(IntToStr(dmData.cdsWY.RecordCount) + ' ' + IntToStr(dmData.cdsTGFY.RecordCount) +
' ' + IntToStr(dmData.cdsXWXL.RecordCount) + ' ' );过滤方式:
cdsSport.Filtered := False;
cdsSport.Filter := 'CompanyID = ' + IntToStr(LGlobal.CompID) +
' and BabyID = ' + IntToStr(LGlobal.BabyID) +
' and F_Month = ' + FloatToStr(fSportMonth);
cdsSport.Filtered := True;
中间没有汉字内容显示都是 1 服务器:
Cltds.XMLData:=vBabyCheckInfo[2];
ShowMessage(IntToStr(Cltds.RecordCount));
显示确实在客户端没有过滤前的条数
vBabyCheck[2] := dmData.cdsXWXL.XMLData; Showmessage(IntToStr(dmData.cdsWY.RecordCount) + ' ' + IntToStr(dmData.cdsTGFY.RecordCount) +
' ' + IntToStr(dmData.cdsXWXL.RecordCount) + ' ' );过滤方式:
cdsSport.Filtered := False;
cdsSport.Filter := 'CompanyID = ' + IntToStr(LGlobal.CompID) +
' and BabyID = ' + IntToStr(LGlobal.BabyID) +
' and F_Month = ' + FloatToStr(fSportMonth);
cdsSport.Filtered := True;
中间没有汉字内容显示都是 1 服务器:
Cltds.XMLData:=vBabyCheckInfo[2];
ShowMessage(IntToStr(Cltds.RecordCount));
显示确实在客户端没有过滤前的条数
解决方案 »
- 求助,急,压缩的BCD码转换为十进制数或着是ascii码
- 谁有Wingdows优化大师的愿码?
- 急了,delphi怎么使用VC里面类似的 beep(1000,100)函数?
- 各位大哥、大姐,救命啊!!!(100分)
- 请问 制做delphi7.0 安装程序 怎么做???delphi7.0 的dbexpress技术,链接ORACLE 数据库急急!!!!!
- 当用户修改IP地址后,触发一个事件,如何实现呢~!?
- 如何让dbgrid显示storedproc的返回结果
- TButton的渐变背景图
- 用delphi如何提取本地所有表(oracle)某一天的数据(用何种方法、何种命令)?(再线等待)
- 如何在一个程序启动的同时启动一个输入法,比如全拼了,类似accsess里一样?
- 高分寻解: 如何得到copy动作的进程ID
- 用delphi 解决xml的问题?? 请好心人帮忙,急!!分全给!
因此,如果樓主想取得一條記錄,使用filter是沒有作用的,應該直接在TQuery(或其他)的SQL屬性中設置條件.而在更新時,如果你衹取一條記錄,更新當然也是一條,另外也可以選擇手動更新,比如使用Query.ExecSQL('update ...').