Question

vf 编写“查询”按钮的click事件代码

local bm
BM=alltrim(thisform.Text1.value)
sele 职工
if !empty(BM)
locate for 部门=BM
IF FOUND()
THISFORM.Gird1.RECORDSOURCE="SELE ZG.职工号,ZG.姓名,ZG.职称,ZG.基本工资,GZ.实发工资;
from 职工 ZG,工资 GZ;
where ZG.职工号=GZ.职工号 and ZG.部门=BM;
into cursor wt"
else
wait"请输入部门" wind
thisform.text1.setfocus
endif
else
wait"没找到" WIND
thisform.text1.setfocus
ENDIF
那里有错吗？？？？ 系统提示不能识别的成员GIRD1

Answer 1

THISFORM.Gird1.RECORDSOURCE中的单词错了，应该是Grid1.
同时，你使用sql作为grid1的数据源，别忘了为它指明数据类型，就是设置
THISFORM.Grid1.RECORDSOURCEtype=4

Answer 2

2------------
clear
a
=
val(thisform.text1.value)
b
=
val(thisform.text2.value)
nmin
=
iif(a
>=
b,b,a)
nvalue
=
1&&公约数
for
i
=
1
to
nmin
if
a
%
i
==
0
and
b
%
i
==
0
nvalue
=
i
endif
next
thisform.text3.value
=
transform(nvalue)