UC知道懂VFP的进
来源：百度知道 编辑：UC知道 时间：2024/05/15 14:35:23
在创立一个表单时,Command1.Click的代码如下：
if thisform.optiongroup1.option1.value=1
bh=this.parent.text1.text
bh=trim(bh)
activat screen
select 教师档案.编号,教师档案.姓名,教师档案.职称,教师档案.籍贯,教师任;
课.课号,课名.课名 from 教师!教师档案 教师档案 inner join (教师!教;
师任课 教师任课 inner join 教师!课名 课名 on 教师任课.课号＝课号.课号)
on 教师档案.编号＝教师任课.编号 where 教师档案.编号＝bh order by 教师任课.课号
else
xm1=this.parent.text2.text
xm1=trim(xm1)
activate screen
select 教师档案.编号,教师档案.姓名,教师档案.职称,教师档案.籍贯,教师任课.课号,课名.课名 from 教师!教师档案;
inner join (教师!教师任课 inner join 教师!课名 on 教师任课.课号＝课号.课号);
on 教师档案.编号＝教师任课.编号 where 教师档案.姓名＝xm1 order by 教师任课.课号
endif
请高手指点上面的代码哪里出错了，我研究半天了，郁闷死
if thisform.optiongroup1.option1.value=1
bh=this.parent.text1.text
bh=trim(bh)
activat screen
select 教师档案.编号,教师档案.姓名,教师档案.职称,教师档案.籍贯,教师任;
课.课号,课名.课名 from 教师!教师档案 教师档案 inner join (教师!教;
师任课 教师任课 inner join 教师!课名 课名 on 教师任课.课号＝课号.课号)
on 教师档案.编号＝教师任课.编号 where 教师档案.编号＝bh order by 教师任课.课号
else
xm1=this.parent.text2.text
xm1=trim(xm1)
activate screen
select 教师档案.编号,教师档案.姓名,教师档案.职称,教师档案.籍贯,教师任课.课号,课名.课名 from 教师!教师档案;
inner join (教师!教师任课 inner join 教师!课名 on 教师任课.课号＝课号.课号);
on 教师档案.编号＝教师任课.编号 where 教师档案.姓名＝xm1 order by 教师任课.课号
endif
请高手指点上面的代码哪里出错了，我研究半天了，郁闷死
你的下面这一句是不是取：输入到表单上一个名为text1的text控件的值?
bh=this.parent.text1.text
如果是的话，这句就错了，应为
bh=this.parent.text1.value
或者
bh=thisform.text1.value
还在else后面的一句也是同样的问题。