求VB+SQL中产生一个报表的问题。

[nonplus]

谁帮我看看生成报表 txtSQL = "select * from party where party_Id = '" & txtId.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)

Set PartyReport.DataSource = mrc


PartyReport.txtId1.DataField = mrc.Fields(1)

PartyReport.txtname1.DataField = mrc.Fields(2)

PartyReport.txtsex1.DataField = mrc.Fields(3)

PartyReport.txtBorn1.DataField = mrc.Fields(4)

PartyReport.txtNation1.DataField = mrc.Fields(5)

PartyReport.txtinsert1.DataField = mrc.Fields(6)

经过编译，提示未找到方法或数据成员。 提示信息停在txtId1处
哪位帮我看看问题出在什么地方了

[xiaoku]

txtId.Text 为空?

[zzywjing]

txtId.Text & "" 这样试试

[nonplus]

我已经知道了 PartyReport.Sections("Section1").Controls("txtid1").DataField = mrc.Fields(1).Name 这样就搞定了

[nonplus]

可是不知道为什么报表打印，好慢，能有什么方法提速吗？别想国家火车提速那样就行了。

[kiko89]

接分!