无法在打开/关闭的数据集上执行此操作



嗨,伙计们,我写了一个函数,它必须检查给函数的ID作为iID,然后输出它的成员的名字被发现,否则它必须输出,它没有找到

当调用此函数时,另一个表处于活动状态,因此必须将表更改为Members(以搜索ID),然后再返回(我有多个表)

function fCheckID(iID:integer):String;
var sTable:string;
begin
sTable:=datamoduleX.tableX.TableName;
datamoduleX.tableX.TableName:='Members';
 if datamoduleX.tableX.Locate('RefNo',iID,[]) then
  result:=dmRooiX.tblRooiX['Name']+' '+datamoduleX.tableX['Surname']
  else
  result:='ID: '+inttostr(iID)+' does not exist';
datamoduleX.tableX.TableName:=sTable;
end;

但问题是每次我调用这个函数,我得到一个错误,说"不能在一个开放的数据集上执行此操作"

如果我在运行函数之前关闭数据集,我会得到"Cannot perform this operation on a closed dataset"

我知道错误发生时,我试图访问表名或改变它(函数不给错误时,这3行被注释掉)

我不知道该怎么做如有任何帮助,不胜感激

示例:

  Table1.TableName := 'TABLE1';
  Table1.Open;  
  Table1.TableName := 'TABLE2';  <-- Cannot perform this operation on Open data set. Because Table1 is open
  Table1.Locate('ID',11,[]);

简单的解决方案

 Table1.TableName := 'TABLE1';
 Table1.Open;
 Table1.Close; <--Close table before change table name
 Table1.TableName := 'TABLE2';
 Table1.Open;  <-- Open new table before do Locate
 Table1.Locate('ID',11,[]);

最新更新