嗨,伙计们,我写了一个函数,它必须检查给函数的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,[]);