帮我看看，51476905

Question

datamodule1.ADOTable1.Post;
在此之后加上：datamodule1.ADOTable1.next
(嘻，你的写法有点VB的味道...）

Answer 1

不好意思，看花眼了，实现N个记录更新最好用ADOCOMMAND来实现！

Answer 2

我是在treeview中修改了母项后，我想让字项的一个字段在数据库中也很得到改变（值就是这个母项）

Answer 3

if datamodule1.ADOTable1.Recordset.EOF=false then
                    begin
 datamodule1.ADOTable1.Recordset.MoveNext;
                   end;
darji(无拘浪人)我这有处理啊

Answer 4

if datamodule1.ADOTable1.Recordset.EOF=false then
                    begin
 datamodule1.ADOTable1.Recordset.MoveNext;->
Node := NextNode/好像是这一句，就是得到下一个节点；不要对库里边的东西操作
                   end;

Answer 5

if datamodule1.ADOTable1.Recordset.RecordCount>0 then
   begin
 datamodule1.ADOTable1.Recordset.MoveFirst;
for i:=0 to datamodule1.ADOTable1.Recordset.RecordCount-1 do
  begin   
if datamodule1.ADOTable1.FieldByName('lb').AsString =treeview1.Selected.text then
begin
datamodule1.ADOTable1.Edit;
datamodule1.ADOTable1.FieldByName('lb').AsString:=s;
datamodule1.ADOTable1.Post;
end;
if datamodule1.ADOTable1.Recordset.EOF=false then
                  begin
datamodule1.ADOTable1.Recordset.MoveNext;
      end;

Answer 6

如果是母项的话：
　Node := TreeView1.Selected.FristChild

Answer 7

"Node := TreeView1.Selected.FristChild"可以不管，我那个S就是这个值

Answer 8

你看：
if datamodule1.ADOTable1.Recordset.RecordCount>0 then
   begin
 datamodule1.ADOTable1.Recordset.MoveFirst;//你还没有进行判断啊
for i:=0 to datamodule1.ADOTable1.Recordset.RecordCount-1 do
  begin   
if datamodule1.ADOTable1.FieldByName('lb').AsString =treeview1.Selected.text then
begin
datamodule1.ADOTable1.Edit;
datamodule1.ADOTable1.FieldByName('lb').AsString:=s;
datamodule1.ADOTable1.Post;
end;
if datamodule1.ADOTable1.Recordset.EOF=false then
                  begin
datamodule1.ADOTable1.Recordset.MoveNext;
      end;
你在这儿修改后，树里是提现不出来的

Answer 9

"datamodule1.ADOTable1.Recordset.MoveFirst;//你还没有进行判断啊"应写在哪

Answer 10

ADOTable1.First;
  if Not ADOTable1.IsEmpty then
  begin
    while Not ADOTable1.Eof do
    begin
      if ADOTable1.FieldByName('lb').AsString = treeview1.Selected.text then0D
      begin
        ADOTable1.Edit;
        ADOTable1.FieldByName('lb').AsString:=s;
        ADOTable1.Post;
      end;
    end;
  end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 11

ADOTable1.First;
假如没数据会报错吗

Answer 12

if datamodule1.ADOTable1.Recordset.RecordCount>0 then
  begin
      datamodule1.ADOTable1.Recordset.MoveFirst;
  while Not ( datamodule1.ADOTable1.Eof ) do
  begin   
   if datamodule1.ADOTable1.FieldByName('lb').AsString =treeview1.Selected.text then
   begin
     datamodule1.ADOTable1.Edit;
     datamodule1.ADOTable1.FieldByName('lb').AsString:=s;
     datamodule1.ADOTable1.Post;
   end;
   DataModule1.ADOTable1.Next;
end;
end

Answer 13

让其Next就可以了啊；
但是，你的那个没有在end里边