locate中使用variant
利用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页面-对账按钮功能。