如果我要从temp表中取某条记录(如status>0 这是唯一的)以后的记录应该怎么取,而且取到的记录要保存到一个数据集当中来啊
谁能给我详细的代码啊
谁能给我详细的代码啊
解决方案 »
- delphi巨难问题,谁要帮我解决我给谁,问了N久没人回的问题
- SQL语句问题
- 初学。关于DATAQuery和DATASource的问题
- 高分求购书籍
- 如何用代码检测打印机是否存在?
- 高手们,知道一个函数的地址和它的参数个数、参数类型、返回的类型,如何执行它,急!!
- ★★★CSDN结贴联盟第13次信誉提问!!★★★
- 如何改变dbgrid的标题栏!很急!
- 怎麼樣用clientdataset去做delphi的明細報表(master 和detail 分別怎麼去設置啊?
- Delphi中有象SQL的in用法吗?
- 怎样为Shape 添加 Handle ,因此我想切割三角形并且绘制成按钮形式(做七巧板用) , 但切割需要Handle ,还有做成按钮形式,有浮起的效果, 请
- 动态创建的菜单项,如果几个菜单项共用一个onClick过程,如何判断当前点击的是哪一个项? 如何获取其索引值?
self.ADODataSet1.Filter:='status>0';
self.ADODataSet1.Filtered:=true;
我要取的是标志位 status>0 以后的记录
并不是要取status>0 的记录
其实rocxu的方法也不错,至少不用动什么脑筋
var Ind:longint;
SField, DField: TField;
begin
for Ind:=0 to Source.FieldCount - 1 do
begin
SField := Source.Fields[ Ind ];
DField := Destination.FindField( SField.FieldName );
if (DField <> nil) and (DField.FieldKind = fkData) and
not DField.ReadOnly then
if (SField.DataType = ftString) or
(SField.DataType <> DField.DataType) then
DField.AsString := SField.AsString
else
DField.Assign( SField )
end;
end;procedure TFormDemo.ButtonAppendClick(Sender: TObject);
var
StartRecNo: Integer;
begin
DataSet_D.Open;
DataSet_S.Open;
while not DataSet_S.Eof do
begin
if DataSet_S.FieldValues['Status'] > 0 then
StartRecNo := DataSet_S.RecNo;
if DataSet_S.RecNo > StartRecNo then
begin
DataSet_D.Append;
CopyRecord(DataSet_S, DataSet_D);
DataSet_D.Post;
end;
DataSet_S.Next;
end;
end;
其实rocxu的方法也不错,至少不用动什么脑筋================不能把没有测试的任何代码随便公布, 这是一种很不负责的行为。 至于你们的办法都是不符合实际情况的需求的。
============
To Be Or Not To Be , This is a Question...... :) :)