0

大家好，我写了一个函数，它必须检查给函数的 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;

但问题是每次我调用此函数时都会收到一条错误消息，提示“无法在打开的数据集上执行此操作”

如果我在运行函数之前关闭数据集，我会得到“无法在关闭的数据集上执行此操作”

我知道当我尝试访问表名或更改它时会发生错误（当这 3 行被注释掉时，该函数不会给出错误）

我不知道如何使这项工作任何帮助将不胜感激

4

1 回答 1

2

例子 ：

  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,[]);
于 2015-10-08T09:57:23.153 回答