起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 145|回复: 7

请问为什么查询不起作用**

[复制链接]
发表于 2008-8-1 15:11:21 | 显示全部楼层 |阅读模式
设置了数据集,但电击按钮后是显示的是数据集的第一条记录
请问哪里不对了
核心代码:
sql :='select * from TXJKTGSJB where XTMC='''
        +lname+''' and datediff(day,TJSJ,'''+sysutils.DateToStr(stime)+''')=0 ';
        TSQLDataSet(dsbRS.DataSet).SQL.Text:=sql;
        dsbRS.DataSet.Open;
        sarray[0]:= dsbRS.DataSet.FieldByName('XTBH').AsString;
        sarray[1]:= dsbRS.DataSet.FieldByName('XTMC').AsString;
        sarray[2]:= sysutils.DateToStr(stime);
        darray[0]:= dsbRS.DataSet.FieldByName('XTLTL').AsFloat;
        darray[1]:= dsbRS.DataSet.FieldByName('DMQK').AsFloat;
        insertData(sarray,darray);

附:
procedure TTXJK.insertData(sarray:StringArray;darrayoubleArray);
begin
  dsbCheck.DataSet.Open;
  dsbCheck.DataSet.Append;
  dsbCheck.DataSet.FieldByName('XTBH').AsString := sarray[0];
  dsbCheck.DataSet.FieldByName('XTMC').AsString := sarray[1];
  dsbCheck.DataSet.FieldByName('TJSJ').AsString := sarray[2];
  dsbCheck.DataSet.FieldByName('XTLTL').AsFloat := darray[0];
  dsbCheck.DataSet.FieldByName('DMQK').AsFloat := darray[1];
  dsbCheck.DataSet.Post;
  dsbCheck.DataSet.ApplyUpdates;
  //dsbCheck.DataSet.CleanupInstance;  //清空数据集
end;
回复

使用道具 举报

发表于 2008-8-1 15:16:08 | 显示全部楼层
将sql语句在标准数据库那测试一下,看是否能出现你要的数据?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-8-1 15:26:37 | 显示全部楼层
在数据库端试过了,查询结果正常
回复 支持 反对

使用道具 举报

发表于 2008-8-1 15:34:16 | 显示全部楼层
你要显示的数据集是哪个:
dsbRS.DataSet?  还是dsbCheck.DataSet?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-8-1 15:36:28 | 显示全部楼层
查询是用dsbRS来查的
显示想放在dsbCheck里面,用这个来显示
莫非这里不对了?
两个数据集的字段什么的完全一致,都是基于同一张表
回复 支持 反对

使用道具 举报

发表于 2008-8-1 15:39:39 | 显示全部楼层
看一下dsbRS是否是你要查的正确数据?
Append之前,看一下dsbCheck中是否已有记录
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-8-1 15:44:25 | 显示全部楼层
请问怎么看?
另外,如果 dsbCheck.DataSet.Open;
  dsbCheck.DataSet.CleanupInstance;  //清空数据集
  dsbCheck.DataSet.Append;
可否保证dsbCheck中在append之前清空以前的数据
我这样写好像也不对呢
回复 支持 反对

使用道具 举报

发表于 2008-8-1 15:46:43 | 显示全部楼层
用ShowMessage()
看sarray[0]:= dsbRS.DataSet.FieldByName('XTBH').AsString;的值

Append之前看 dsbCheck.DataSet.RecordCount  记录数
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-19 22:33 , Processed in 0.037512 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表