请帮我看一下我要实现单击左边列表框的内容在右边MSHFlexGrid中显示相应内容
Private Sub List1_Click()
con.Open "dsn=stud"
Set rs = con.Execute("select*from sushe where 宿舍类型='" & List1.Text & "'")
rs.Update
Set MSHFlexGrid1.DataSource = rs
End Sub
Lemon
学分:0 LV1
您好!
rs对象使用完成需要将其关闭,在操作完成时添加 代码 rs.close即可解决