ADOTable->DataSource->DBGridEh界面问题

[蒙飞鸿]

ADOTable->DataSource->DBGridEh
这样的结构，不打算通过ADOQuery来处理。

界面上按序号排序Sort="序号"。

想实现通过单击一个按钮使得当前记录与下一记录的序号互换，即当前记录位置调整，下移一行

通过这样的代码，曾经貌似成功过，但现在行不通：

ADOTable1->DisableControls();
i3 = ADOTable1->RecNo;
i1 = ADOTable1->FieldByName("序号")->AsInteger;
ADOTable1->Next();
i4 = ADOTable1->RecNo;
i2 = ADOTable1->FieldByName("序号")->AsInteger;
ADOTable1->Edit();
ADOTable1->FieldByName("序号")->AsInteger = i1;
ADOTable1->Post();
ADOTable1->First();
ADOTable1->MoveBy(i3-1);
ADOTable1->Edit();
ADOTable1->FieldByName("序号")->AsInteger = i2;
ADOTable1->Post();
ADOTable1->Sort = "序号";
ADOTable1->MoveBy(i4-1);
DBGridhEh1->Refresh();
ADOTable1->EnableControls();

有时候序号交换了界面不更新，有时候序号都不会交换。

怎么办啊？？？要实现一个其他按钮按下后，当前记录下移（通过交换序号，按序号排序，刷新界面）。

[缘中人]

DBGridhEh1->Refresh(); ADOTable1->EnableControls(); 先后顺序调整一下试试

[蒙飞鸿]

引用 1 楼 ksrsoft 的回复:

DBGridhEh1->Refresh(); ADOTable1->EnableControls(); 先后顺序调整一下试试

没有解决，问题如故

[缘中人]

ADOTable1->Post();第一次修改后值发生变化了，后台又排序了，修改到另一条记录上去了

[蒙飞鸿]

如何暂停“后台又排序了”

[蒙飞鸿]

不行，不能暂停， 否则难以将界面顺序与操作对象对应起来

[缘中人]

void __fastcall TForm3::btn1Click(TObject *Sender)
{
  int i1,i2;
  int fixi=0;//一个不存在的值
  String s1,s2,s3;
  tbl1->DisableControls();
  
  i1 = tbl1->FieldByName("id")->AsInteger;
  s1 =tbl1->FieldByName("name")->AsString;

  tbl1->Next();
  i2 = tbl1->FieldByName("id")->AsInteger;
  s2 =tbl1->FieldByName("name")->AsString;

  tbl1->Edit();
  tbl1->FieldByName("id")->AsInteger = fixi;
  tbl1->Post();


  tbl1->Locate("id",i1,TLocateOptions());  
  tbl1->Edit();
  tbl1->FieldByName("id")->AsInteger = i2;
  tbl1->Post();

  //一个不存在的值
  tbl1->Locate("id",fixi,TLocateOptions());  
  tbl1->Edit();
  tbl1->FieldByName("id")->AsInteger = i1;
  tbl1->Post();


  tbl1->Sort = "id";
  tbl1->EnableControls();
  DBGrid1->Refresh();
}

第一次post修改后可能存在两个序号相同的值，这时由于有sort，所以哪条在前，哪条在后不确定，用locate方法就没问题了

[蒙飞鸿]

认识到后台会自动排序，把问题解决了