UC知道VB中MSHFlexGrid问题
来源：百度知道 编辑：UC知道 时间：2024/06/14 08:34:37
我在用VB做一个教师管理系统，一个老师教多门课程，有关信息记录在ACCESS里面了，VB连接ACCESS后在MSHFlexGrid控件显示出来有关教师课程的信息，我想每一行显示一条该教师的课程，怎么做到？代码如下。大家看看怎么改
Combo1.Text 显示的是教师编号。没有影响
教师的课程记录在“排课信息表”中了
With MSHFlexGrid1
If rst1.State Then rst1.Close
rst1.Open "select 课程名称 from 排课信息表 where 教师编号='" & Combo1.Text & "'", CN, adOpenStatic, adLockOptimistic
If Not rst1.EOF Then
If Not IsNull(rst1.Fields(0)) Then
.TextMatrix(1, 0) = Trim(rst1.Fields(0))
End If
End If
Combo1.Text 显示的是教师编号。没有影响
教师的课程记录在“排课信息表”中了
With MSHFlexGrid1
If rst1.State Then rst1.Close
rst1.Open "select 课程名称 from 排课信息表 where 教师编号='" & Combo1.Text & "'", CN, adOpenStatic, adLockOptimistic
If Not rst1.EOF Then
If Not IsNull(rst1.Fields(0)) Then
.TextMatrix(1, 0) = Trim(rst1.Fields(0))
End If
End If
With MSHFlexGrid1
If rst1.State Then rst1.Close
rst1.Open "select 课程名称 from 排课信息表 where 教师编号='" & Combo1.Text & "'", CN, adOpenStatic, adLockOptimistic
i=1
do while Not rst1.EOF
If Not IsNull(rst1.Fields(0)) Then
.TextMatrix(i, 0) = Trim(rst1.Fields(0))
End If
i=i+1
rs1.movnext
loop