1

我使用ClientDataSet带有DataSetProvider链接到本地​​数据集的 a。当我想编辑 DataSet 中的数据时,我打开 ClientDataSet 并向其添加一些索引。完成数据编辑后,我关闭 ClientDataSet。一切正常,除了当我再次打开 ClientDataSet 并选择一个索引时,它会抛出异常消息"index 'xxx' not found". 我做错了什么?

下面是打开 ClientDataSet 的代码:

 Application.CreateForm (TfrmCardDep, frmCardDep);
 try
  with DM.tblCCardDep do
   begin
    IndexDefs.Clear;
    if not Active then Open;
    AddIndex ('iDepID', 'DepID', []);
    AddIndex ('iDep', 'Dep', []);
    IndexName := 'iDep';
    FieldByName('Dep').DisplayLabel := 'Departament';
    FieldByName('Dep').DisplayWidth := 50;
    FieldByName('DepID').Visible := false;
   end;

  frmCardDep.ShowModal;
 finally
  if DM.tblCCardDep.Active then DM.tblCCardDep.Close;
  frmCardDep.Free; frmCardDep := nil;
 end;

DM.tblCCardDep 是 ClientDataset

4

2 回答 2

2

在第一轮之后,您已经IndexName设置了ClientDataSet. 当IndexDefs被丢弃时,它引用的索引变得无效。IndexName在重新打开数据集之前清除,即修改您的代码以读取:

 [..]
 try
  with DM.tblCCardDep do
   begin
    IndexDefs.Clear;
    IndexName := '';      // <- here
    if not Active then Open;
    [..]

或者使用这样的东西:[..]

 try
  with DM.tblCCardDep do
   begin
    if not Active then Open;
    if IndexDefs.Count = 0 then
     begin
      AddIndex ('iDepID', 'DepID', []);
      AddIndex ('iDep', 'Dep', []);
      IndexDefs.Update;             // Update IndexDefs
      IndexName := 'iDep';
     end;
    FieldByName('Dep').DisplayLabel := 'Departament';
    [..]
于 2011-09-20T11:40:08.753 回答
0

关闭客户端数据集时,始终会丢弃客户端数据集索引。客户端数据集上下文中的“持久索引”意味着只要客户端数据集打开,它就会保留在内存中:

了解 ClientDataSet 索引

TClientDataset 索引:临时的还是持久的?

于 2011-09-20T10:28:51.543 回答