各位给看一下!诸位大虾帮我快!!!!!!!!!
'我第一次输入一个人名时,如‘李明’,它可以显示出正确的报表,可是当我再输入一次人名时,它显示的还是刚才李明的报表,而不显示第二个人的报表。诸位大虾帮我快!!!
Private Sub Command1_Click()
Dim sqlsTr As String
Dim XingMing As String
XingMing = Trim(Text1.Text)
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
Else
SQL = "select * from dbo.user where='" & XingMing & "'"
End If
sqlsTr = "select * from dbo.jiaoxue_zongjie where 教师姓名='" & XingMing & "'"
DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
Set rep.DataSource = DataEnvironment1
rep.DataMember = "command1"
rep.Show
End Sub