我在数据环境里加了两个表，就是将两个表相关的查询结果显示在page2里面
查询条件的click代码：
exps=".t."
if not empty(thisform.pageframe1.page1.姓名1.value)
exps=exps+'.and."'+alltrim(thisform.pageframe1.page1.姓名1.value)+'"$姓名'
endif
if not empty(thisform.pageframe1.page1.ip地址1.value)
exps=exps+'.and."'+alltrim(thisform.pageframe1.page1.ip地址1.value)+'"$ip地址'
endif
if not empty(thisform.pageframe1.page1.所在系部1.displayvalue)
exps=exps+'.and."'+alltrim(thisform.pageframe1.page1.所在系部1.displayvalue)+'"$所在系部'
endif
if not empty(thisform.pageframe1.page1.职称1.displayvalue)
exps=exps+'.and."'+alltrim(thisform.pageframe1.page1.职称1.displayvalue)+'"$职称'
endif
if not empty(thisform.pageframe1.page1.月份1.displayvalue)
exps=exps+'.and."'+alltrim(thisform.pageframe1.page1.月份1.displayvalue)+'"$月份'
endif

IF Len(Exps)>10
Exps1=Substr(Exps,9)
ThisForm.Pageframe1.Page1.Expression.Value=Exps1

当运行后点击page2查询结果是就显示出错误的那个图的样子
page2 的activate代码：
IF NOT Empty(ThisForm.Pageframe1.Page1.Expression.Value)
Exprs=ThisForm.Pageframe1.Page1.Expression.Value
Select 所在系部,月份,用户表.姓名,性别,职称,ip地址,流入量,流出量,费用统计;
From 用户表,流量表;
Where 用户表.ip地址=流量表.ip地址 &Exprs Into Cursor Temp1
Else
Wait Window "没有指定任何条件!" NoWait
Select 所在系部,月份,姓名,性别,职称,ip地址,流入量,流出量,费用统计;
From 用户表,流量表;
Where 用户表.ip地址=流量表.ip地址 &Exprs Into Cursor Temp1;

EndIF
ThisForm.Pageframe1.Page2.Grid1.RecordSourceType=1
ThisForm.Pageframe1.Page2.Grid1.RecordSource="Temp1"
ThisForm.Pageframe1.Page2.Grid1.ColumnCount=9
ThisForm.Pageframe1.Page2.Grid1.Column1.Header1.Caption="月份"
ThisForm.Pageframe1.Page2.Grid1.Column2.Header1.Caption="所在系部"
ThisForm.Pageframe1.Page2.Grid1.Column3.Header1.Caption="姓名"
ThisForm.Pageframe1.Page2.Grid1.Column4.Header1.Caption="性别"
ThisForm.Pageframe1.Page2.Grid1.Column5.Header1.Caption="职称"
ThisForm.Pageframe1.Page2.Grid1.Column6.Header1.Caption="ip地址"
ThisForm.Pageframe1.Page2.Grid1.Column7.header1.caption="流入量"
ThisForm.Pageframe1.Page2.Grid1.Column8.header1.caption="流出量"
ThisForm.Pageframe1.Page2.Grid1.Column9.header1.caption="费用统计"

ThisForm.Pageframe1.Page2.Grid1.Column1.Width=45
ThisForm.Pageframe1.Page2.Grid1.Column2.Width=70
ThisForm.Pageframe1.Page2.Grid1.Column3.Width=50
ThisForm.Pageframe1.Page2.Grid1.Column4.Width=40
ThisForm.Pageframe1.Page2.Grid1.Column5.Width=50
ThisForm.Pageframe1.Page2.Grid1.Column6.width=85

ThisForm.Pageframe1.Page2.Grid1.Column7.Width=65
ThisForm.Pageframe1.Page2.Grid1.Column8.Width=65
ThisForm.Pageframe1.Page2.Grid1.Column9.Width=70

他说 Select 所在系部,月份,用户表.姓名,性别,职称,ip地址,流入量,流出量,费用统计;这句有错误就是那个提示错误的图，
请各位指点

[此贴子已经被作者于2006-5-19 16:03:17编辑过]

PAGE2.ACTIVATE()的如下代码最后一个分号去掉

Select 所在系部,月份,姓名,性别,职称,ip地址,流入量,流出量,费用统计;
From 用户表,流量表;
Where 用户表.ip地址=流量表.ip地址 &Exprs Into Cursor Temp1;

我试了，还是不行啊！谢谢

在出现程序错误对话框时点 挂起 按扭就知道那条语句出错了嘛

Select 所在系部,月份,姓名,性别,职称,ip地址,流入量,流出量,费用统计;
就是这句出错了