** Create the full SQL command using the base table for the form

lcSQL = "SELECT * FROM " + lcAlias + " " + lcWHERE

****************************************************************************

修改为：

****************************************************************************

If !empty(lcOperand)

lcValue2 = thisform.ValidateType(this.cboField2.value,lcValue2)

lcWhere = lcOperand + " " + lcAlias + "." + lcField2 + " " +;

lcRelation2 + " " +lcValue2

Endif

lcWhere = "Where "+ lcAlias + "." + lcField1 + lcRelation1 + " ";

+ lcValue1 + " " + lcWhere

lcSql = "Select * From " + "DatabaseName!" + lcAlias + " " + lcWhere

****************************************************************************

DatabaseName是你的数据库的名字。以上修改的实质是，给要查询的字段名限定其所在的表别名，给

select form的表别名限定所属的数据库。

2、修改RunSql命令按钮的Click事件代码，将原代码：

*************************************************************************

cMacro = ALLTRIM(THISFORM.edtSQL.Value) + "INTO CURSOR TEMPQUERY"

*************************************************************************

中的 （+ "INTO CURSOR TEMPQUERY"）部分删除，将cMacro改为sqlstatement.并将除了下面部分外的全

部代码删除：

*************************

IF USED(lcOldAlias)

SE

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

在google里搜索更多悠哉悠哉，一个复合查询方法

	Web www.51ec.org

上一篇信息学院： 用ADO STREAM做的无组件上传程序…

下一篇信息学院： 去除空格的函数