没人知道么？
顶！顶到会为止！！

别急，正在做你的问题

现在有一个想法，先把TDateSet设为客户端，然后
while(!pDS->Eof)
{
    pDS->Fields->Fields[0]->Value = pDS->RecNo;
    pDS->Next();
}
现在社区搜索用不了，可怜得连客户端也不知道怎么设，慢慢来吧

找到一个：
回复人： BCB(天下三分明月夜,二分无赖是扬州) ( ) 信誉：110  2004-01-02 08:19:00  得分:0 
 
 
  这个小问题，这么多人讨论了半天尚未解决，
这个问题以前早已解决，条件是用ADO，不支持BDE
1。加一个序号串字段，内容不重要，在这个记录集的事件OnGetText：
void __fastcall TDataModule1::ADODataSet1XHGetText(TField *Sender,
      AnsiString &Text, bool DisplayText)
{
       int r=Sender->DataSet->RecNo;
       Text=(r==-1)?String(""):String(r);
}

to: xibingwuqing(惜冰无情)

  pDS->RecNo 在我这一直是显示 -1。（BDE的控件）

其实这个问题本来很简单，我只是为了在状态栏中显示
“当前记录”这么一个信息，比如我起初用：
StatusBar2->Panels->Items[0]->Text="当前记录第: "+IntToStr(DBGrid3->DataSource->DataSet->RecNo)+" 条";
可是一直是显示-1条，而DBGrid3 中确实是有记录的。

这个“-1”的问题我好早就提过，可是一直没得到解决（可能是BDE本身的缺陷，我在前一个系统中用ADO 做的都可以）。没办法了，只好换种方式，用读取序号的方式来确定。数据库里面虽然有类似“序号”这样的标识字段，当时不能使用他们来定位，因为多条件的查询必定使的结果集中记录不连续。

晕了！！！！一定要换ADO？那可就麻烦了！！

我用的是BDE中的TQuery控件，pDS->RecNo可以正常显示，你用的是？

啊！我的也是啊，可是
StatusBar2->Panels->Items[0]->Text="当前记录第: "+IntToStr(qryShow->RecNo)+" 条";
确实一直是 -1！
郁闷！！

你的DBGrid相关代码能不能贴出来，越多越好，说不定大家讨论讨论就出来了

我又建了个简单的工程。 里面一个DBGrid 一个DataSource 一个 TQuery ，一个StatusBar
还有一个button 
当点击击button时，StatusBar显示当前所在记录是第几条，整个过程我只写了一句

StatusBar1->Panels->Items[0]->Text="当前记录第: "+IntToStr(qryShow->RecNo)+" 条";

结果显示还是-1，根本没有关于DBGrid 的代码。

UP

用ShowMessage(qryShow->RecNo)试一试
或者你的qryShow是DBGrid1->DataSource->DataSet吗？

恩

（ShowMessage(qryShow->RecNo) 试过 也是-1）

不清楚了，能不能把所有相关的代码贴上来seesee

在新建的那个工程里面就一行我写的代码：
StatusBar2->Panels->Items[0]->Text="当前记录第: "+IntToStr(qryShow->RecNo)+" 条";

其他的都是默认的了

问题是不是就在这里——太少了，呵呵？

我也确实是不知道还要加什么了！
用ADO这条语句就够了。bde却毛病多多。

StatusBar2->Panels->Items[0]->Text="当前记录第: "+IntToStr(qryShow->RecNo)+" 条";

我按照你的试了一下可以正常显示，也许是设置方面的问题

看了下帮助，TQuery继承TBDEDataSet::RecNo:Examine RecNo to determine the record number of the current record in the dataset. 
而TDataSet::RecNo:As implemented in TDataSet, the value of RecNo is always -1.
似乎有点区别

因该就是“the value of RecNo is always -1.”的情况，可是该怎么改呢？

（我把TQuery->>>qryShow 里面的可以设置的属性都改了个遍，也不能正确显示。）

要不你把新建的工程文件传过来，email:xibing1999@163.com，seesee

好，我今天中午休息的时候传过去

问题解决了吗，一直没有收到你的邮件...

to: xibingwuqing(惜冰无情) 
让你久等了，不好意思。
邮件我刚刚补发了一份。

发过来的程序无法运行，总是提示一堆寻找package的对话框，全部取消后又提示不能打开"MYMENU.BPI"的错误，删了.obj和.res文件还是不行，你在程序里加了什么东东...

终于找到原因了，哈哈哈！！！






dbG的DataSource的DataSet的Active属性设为true，如果false提示不能操作已关闭的DataSet，估计你直接运行.exe了

发过来的程序无法运行，总是提示一堆寻找package的对话框，全部取消后又提示不能打开"MYMENU.BPI"的错误，删了.obj和.res文件还是不行，你在程序里加了什么东东...
----------------------------------------------------------------------------------

不好意思，我忘了。XP插件

to:xibingwuqing(惜冰无情)

dbG的DataSource的DataSet的Active属性 在程序设计期间是不能为 true 的。

因为在系统使用前 数据库和数据表都是未知的。只用当用户登陆系统后，进入
该功能模块时给他指定数据库、以及查询表。

比如：
TQuery * qry = new TQuery(Application);
 try
 {
     qry->DatabaseName = DM->dbMain->DatabaseName;
     qry->Close();
     qry->SQL->Clear();
     qry->SQL->Add("Select * from da_objects ");
     qry->Open();
 }
 catch(...){} 

//其中：TDatabase *dbMain ,在登陆时连接数据库

顶啊！！！！！！！！！！！！！！！！！！！！！！

dbG的DataSource的DataSet的Active属性 在程序设计期间是能为 true 的。

DatabaseName有了，SQL也有了，可以true的

对那样是可以为真，但是在实际使用时，我要重新指定数据库的SQL语句的，所以在开始是不能设置为真的，否则回出错的！

TQuery * qry = new TQuery(Application);

qry是动态生成的，是不是要把DBGrid指向qry？

可以不用动态。
-- TQuery * qry = new TQuery(Application); 这句可以不要。

但是

qry->DatabaseName = DM->dbMain->DatabaseName; 必须要的

整个工程的 TQuery 都不能在设计之初就指定数据库。
显示数据部分的不使用动态生成。编辑数据的时候才用。

问一下：现在问题变成了如果设计之初设定好了可以得出正确结果，如果动态设置得不出正确结果吗？

我也不知道，在我这边是2种情况都是不正确，我的头都大了，晕啊，哎。

实际中的一个问题，我发了3个帖，哎，还没搞定，帮我看看另2个的好不？

http://community.csdn.net/Expert/topic/4328/4328149.xml?temp=.4866297
http://community.csdn.net/Expert/topic/4327/4327164.xml?temp=.2643549

哎，起初就是因为 qry->RecNo 显示不正确（就是我给你发那 “-1的问题”），
实在不行那就换方法咯！搞了查询语句出来，TQuery 又报错，真是1个头2个大啊！

一点一点来，你传给我的工程里，dbG的DataSource的DataSet的Active属性设为true显示不正确吗？

恩，不正确。

动态的和静态的我都试过了，没有一个正确

下次再说吧，精神快崩溃了

我已经精神快崩溃！！

上面多了个“快”字

wf2091139(峰子)，可以留下你的email吗？试一下我给你发的静态“-1的问题”看行不行

如果你有动态的，给我在发一份好吗?看看什么问题

我的邮箱是

wf2091139@163.com 
或
wangfeng@strstar.com
都可以

拖到今天终于要结帖了。不过问题还是没有的到根本的解决。

只好采用 TStringList 按顺序记录关键，然后取序号。

郁闷