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页面-对账按钮功能。

时间: 2024-12-13 21:51:09

locate中使用variant的相关文章

85. BASIC和LotusScript中的Variant

缘起 最近我回看以前记的关于Notes的笔记,发现在Notes bugs类别下,两条编号间隔一的竟然是相差无几的内容. 2. 'Type mismatch' occurs if an nested array e.g. when an item of ColumnValues is an array, is assigned to a variant or passed as an argument of a function. 4. When an item of ColumnValues i

COM技术中的VARIANT and VARIANTARG

VARIANT and VARIANTARG Use VARIANTARG to describe arguments passed within DISPPARAMS, and VARIANT to specify variant data that cannot be passed by reference. When a variant refers to another variant by using the VT_VARIANT | VT_BYREF vartype, the var

Delphi 中调用JS文件中的方法

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ComObj,ActiveX; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button

泛型中的协变和逆变

[泛型中的协变和逆变] 协变指能够使用比原始指定的派生类型的派生程度更大的类型,逆变指能够使用比原始指定的派生类型的派生程度更小的类型. 协变与逆变的本质就是参数的替换.逻辑不变,只进行参数的替换,以实现更高程序的复用. 通常,协变类型参数可用作委托的返回类型,而逆变类型参数可用作参数类型. 对于接口,协变类型参数可用作接口的方法的返回类型,而逆变类型参数可用作接口的方法的参数类型. 协变是out,逆变是in. 协变的例子: 逆变的例子,When the delegate of type Act

LoadRunner中的Web 函数列表

web test LoadRunner fuction_list D:\Program Files (x86)\Mercury Interactive\Mercury LoadRunner\bin>ls -l *.chm -rw-rw-rw-   1 user     group       25893 May 20  2004 FuncRef.chm -rw-rw-rw-   1 user     group       29443 May 20  2004 RPM_Configuration

Delphi_SysUtils中文翻译

************************系统实用例程********************************Delphi / Kylix 跨平台运行时库(System Utilities)Copyright (c) 1995-2002 Borland Softwrare Corporation*******************************************************************SysUtils单元;1. 常量(Const)1) 文件

VSTO:使用C#开发Excel、Word【5】

第一部分:VSTO介绍本书的第一部分介绍了Office对象模型和Office主互操作程序集(PIA).您还将学习如何使用Visual Studio使用Visual Studio 2005 Tools for Office(VSTO)的功能来构建文档后面的自动化可执行文件,加载项和代码. 第一章"办公编程介绍"介绍了Office对象模型,并对其基本结构进行了研究.本章介绍如何使用对象,集合和枚举所有Office对象模型中找到的基本类型.您还将学习如何使用Office对象模型中的对象和集合

React Native Android Gradle 编译流程浅析

[工匠若水 http://blog.csdn.net/yanbober 未经允许严禁转载,请尊重作者劳动成果.私信联系我] 1 背景 前面已经发车了一篇<React Native Android 从学车到补胎和成功发车经历>,接着就该好好琢磨一下 React Native 周边了,没看第一篇的可以先去看看:这里我们先从 React Native 的 Android 编译来简单揭晓一下 React Native 在集成的过程中到底干了哪些不可告人的坏事:由于我们项目准备以 Gradle 形式接入

android.mk android源码编译

http://www.cnblogs.com/chenbin7/archive/2013/01/05/2846863.html Android.mk简单分析 2013-01-05 22:51 by ...平..淡..., 884 阅读, 0 评论, 收藏, 编辑 LOCAL_PATH:= $(call my-dir) include $(CLEAR_VARS) LOCAL_MODULE_TAGS := optional LOCAL_SRC_FILES := $(call all-java-fil