各位给看一下！诸位大虾帮我快！！！！！！！！！

[lixingyuaaa]

'我第一次输入一个人名时，如‘李明’，它可以显示出正确的报表，可是当我再输入一次人名时，它显示的还是刚才李明的报表，而不显示第二个人的报表。诸位大虾帮我快！！！



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

[lixingyuaaa]

好像是有一些作用
但是出了一个毛病
这次我手动设的datasource和datamember在属性窗口中
可是出了一个毛病我输入了一个姓名但是结果为我以前的报表
就是我刚刚查过的一个报表
每次不管我输入什么结果都一样
我想我还是去死吧！
Private Sub Command1_Click()

Dim sqlsTr As String
Dim XingMing As String

XingMing = Trim(Text1.Text)
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub

End If
sqlsTr = "select * from dbo.jiaoxue_zongjie where 教师姓名='" & XingMing & "'"
'sqlstr = "select * from dbo.jiaoxue_zongjie where 教师姓名='李兴禹'"
rep.Refresh
DataEnvironment1.Commands("command1").CommandType = adCmdText

DataEnvironment1.Commands("command1").CommandText = sqlsTr


rep.Show
Set rep.DataSource = Nothing
End Sub

[zmcpu]

Requery方法!
也可以直接使用ADODB.Recordset!不使用DataEnvironment!例:
...
public adoRecordsetX as ADODB.Recordset
...

Private Sub DataReport_Initialize()
adoRecordsetX.Requery
Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
...
'绑定某字段
Me.Sections.Item("Section1").Controls.Item("text1").DataField=adoRecordsetX.Fields.Item(0).Name
...
End Sub

[zmcpu]

：
可以直接当作ado的数据集进行操作
DaEnvxkhd.Recordsets.Item(i).Source = "select * from xkhdxsl where x_year=" + Cmbnian.Text
DaEnvxkhd.Recordsets.Item(i).Open
DRepxkhd.Show vbModal
DaEnvxkhd.Recordsets.Item(i).CloseDaEnvxkhd.Recordsets.Item(i).Source = "select * from xkhdxsl where x_year=" + Cmbnian.Text
DaEnvxkhd.Recordsets.Item(i).Open
DRepxkhd.Show vbModal
DaEnvxkhd.Recordsets.Item(i).Close

[wzn0521]

if DE.Connection.State <> asStateClose then
DE.Connection.close
endif
之后在执行你写的，肯定可以。

[wzn0521]

忘了写了，在endif下面写，DE.Connection.Open就可以了。

[holydiablo]

不过
如果直接用recordset得到新记录集，然后再赋给报表应该是最好的

[lixingyuaaa]

谢谢诸位
明天给分吧
今天我要下了

[I_Iverson]

If 数据环境名.数据连接名.State <> 0 Then
数据环境名.数据连接名.Close
End If
If 数据环境名.数据连接名.State = 0 Then
数据环境名.数据连接名.Open
End If

这是我碰到此类问题时的处理代码。肯定可以的

[linfuyong]

应该set一把

[rushing]

SQL = "select * from dbo.user where 姓名='" & XingMing & "'"

[lixingyuaaa]

to： linfuyong(林子)
可以说得具体一点吗？
帮我改一下
我都懵了

[oo渣渣oo]

把数据环境Refresh一下

[lixingyuaaa]

我综合了大家的意见改了一下
如下：
Private Sub Command1_Click()



Dim sqlsTr As String
Dim XingMing As String

XingMing = Trim(Text1.Text)
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub

End If
sqlsTr = "select * from dbo.jiaoxue_zongjie where 教师姓名='" & XingMing & "'"
'sqlstr = "select * from dbo.jiaoxue_zongjie where 教师姓名='李兴禹'"
DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
Set rep.DataSource = DataEnvironment1
rep.DataMember = "command1"
rep.Show

rep.Refresh
Set rep.DataSource = Nothing
End Sub

可是还是不行啊

[lixingyuaaa]

我的那句
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
Else
SQL = "select * from dbo.user where='" & XingMing & "'"
End If
没有什么用的

[lixingyuaaa]

请大家都来看看吧
请您了
我马上要交上去了
我肯拿分出来

[岁月无声-我心飞翔]

DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
Set rep.DataSource = DataEnvironment1
rep.DataMember = "command1"
rep.Refresh
rep.Show
DataEnvironment1.Commands("command1").CommandText = ''
Set rep.DataSource = Nothing

[lixingyuaaa]

to zhenyukeji(何处是我家)
还是不行的

[lixingyuaaa]

帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我

[twinking]

我觉得
REFRESH
这个语句
应该提前
先让COMMAND1有新的SQL TEXT