为是dbgrideh的不同行显示不同颜色
用 if table1.recNo mod 2=0 then
但是在程序执行过程中recNo的值始终为-1
用 if table1.recNo mod 2=0 then
但是在程序执行过程中recNo的值始终为-1
解决方案 »
- 请问如何在chart显示的曲线中的某一点 画上一个红点?
- delphi中怎么实现EXCEL导入
- 新年快乐!鼠标事件,在线等待
- 如何实现winamp吸附当前窗口标题栏的效果?解决后另有重谢!!!
- 要二个算法的例子
- 使用ADO连接数据库时能否读出数据库是brower、insert、delete状态,如果能应怎样读出?
- intraweb下NewCacheFile用法中遇到的问题,
- 哪位高手帮一下忙啊.就是把图片(jpg,bmp)转换成十六进制,怎么转换啊??有点急,先谢谢各位了.
- 用query修改数据出错
- 请问,如果我想提取邮件地址@前面的字符,如:[email protected],提取@前的ple.应该怎样做,请那位给我指示一下,谢谢!
- COM+资源鉴定问题
- 加分http://expert.csdn.net/Expert/topic/2312/2312977.xml?temp=.3351099,
但是也可能是没有记录所致
Begin
Close;
SQL.Clear;
SQL.Add(' SELECT * FROM Kehu ');
Open;
Count := RecordCount;
End;
Table1.First;
While Not Table1.Eof Do
Begin
If Table1.RecNo Mod 2 = 0 Then
..........
Table1.Next;
End;
其他的我没试验。
While Not Table1.Eof Do
谢谢!
void __fastcall TfrmSelectTag::ClientDataSet1CalcFields(TDataSet *DataSet)
{
/**************************************************************
函数名:ClientDataSet1CalcFields(TDataSet *DataSet)
用途:指定记录显示的编号
输入参数列表:DataSet
输入参数1 TDataSet 传递方法(地址)
返回值:
类型
修改者:
修改日期:
**************************************************************/
if(ClientDataSet1->RecNo==-1)
{
if(RecordState==false)
{
ClientDataSet1->FieldByName("RecordID")->Value=1;
}
else
{
ClientDataSet1->FieldByName("RecordID")->Value=
ClientDataSet1->RecordCount;
}
}
else
{
ClientDataSet1->FieldByName("RecordID")->Value=ClientDataSet1->RecNo;
}
}
大型数据库跟桌面型数据库不一样,默认一条记录一条记录塞给你,还是单向不能回走的,哪象桌面数据库一次把一整陀数据往回塞任你处理。