locate中使用variant

时间:2023-03-08 16:49:04

利用locate构造多字段查询,采用variant很方便,简介如下,

//构造查询多字段,例如'编号;姓名'形式

aLookField :=  FieldByName ('关键字1').AsString + ';'+FieldByName ('关键字2').AsString+ ';'+FieldByName ('关键字3').AsString ;
repeat //在循环中可能需要清除末尾分号

if RightStr (aLookField, 1) = ';' then
   aLookField := copy (aLookField, 1, Length(aLookField) - 1);
until RightStr (aLookField, 1) <> ';';

// 创建查询字段值数组
varArr := VarArrayCreate ([0, 2], varVariant);

// 读要源表中字段的值
varArr := Dm.qAccountListByHis[aLookField];

在另一表中查询
if Dm.qAccountListByBank.Locate (aLookField, varArr, []) then

详见:电子对账程序-DefineBusinessTypeFrm页面-对账按钮功能。