UC知道Visual foxpro
来源：百度知道 编辑：UC知道 时间：2024/05/19 00:04:33
x=thisform.text1.value
do case
case thisform.optiongroup1.value=1
thisform.grid1.recordsource = select 学生.学号,学生.姓名,学生.性别,专业,课程名,成绩,教师.姓名 as 任课教师,学时,学分 from 学生,课程,选课,教师 where 学生.姓名 = x
case thisform.optiongroup1.value=2
thisform.grid1.recordsource = select 学生.学号,学生.姓名,学生.性别,专业,课程名,成绩,教师.姓名 as 任课教师,学时,学分 from 学生,课程,选课,教师 where 课程名 = x
case thisform.optiongroup1.value=3
thisform.grid1.recordsource = select 学生.学号,学生.姓名,学生.性别,专业,课程名,成绩,教师.姓名 as 任课教师,学时,学分 from 学生,课程,选课,教师 where 教师.姓名 = x
endcase
哪里错了
do case
case thisform.optiongroup1.value=1
thisform.grid1.recordsource = select 学生.学号,学生.姓名,学生.性别,专业,课程名,成绩,教师.姓名 as 任课教师,学时,学分 from 学生,课程,选课,教师 where 学生.姓名 = x
case thisform.optiongroup1.value=2
thisform.grid1.recordsource = select 学生.学号,学生.姓名,学生.性别,专业,课程名,成绩,教师.姓名 as 任课教师,学时,学分 from 学生,课程,选课,教师 where 课程名 = x
case thisform.optiongroup1.value=3
thisform.grid1.recordsource = select 学生.学号,学生.姓名,学生.性别,专业,课程名,成绩,教师.姓名 as 任课教师,学时,学分 from 学生,课程,选课,教师 where 教师.姓名 = x
endcase
哪里错了
可以试试以下操作：
1.要将GRID1的RECORDSOURCETYPE的属性设为SQL
2 thisform.grid1.recordsource = "select 学生.学号,学生.姓名,学生.性别,专业,课程名,成绩,教师.姓名 as 任课教师,学时,学分 from 学生,课程,选课,教师 where 学生.姓名 = x"
select 语句应加双引号
你那么吝啬，一点分都没有。估计没什么人回答你的问题