1,217
社区成员
发帖
与我相关
我的任务
分享一个关于生成报表的问题。
谁帮我看看生成报表 txtSQL = "select * from party where party_Id = '" & txtId.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
Set PartyReport.DataSource = mrc
PartyReport.txtId1.DataField = mrc.Fields(1).name
PartyReport.txtname1.DataField = mrc.Fields(2).name
PartyReport.txtsex1.DataField = mrc.Fields(3).name
PartyReport.txtBorn1.DataField = mrc.Fields(4).name
PartyReport.txtNation1.DataField = mrc.Fields(5).name
PartyReport.txtinsert1.DataField = mrc.Fields(6).name
PartyReport.txtchapter1.DataField = mrc.Fields(7).name
PartyReport.txtIdcard1.DataField = mrc.Fields(8).name
PartyReport.txtWork1.DataField = mrc.Fields(9).name
PartyReport.txtfamily1.DataField = mrc.Fields(10).name
PartyReport.txtTele1.DataField = mrc.Fields(11).name
经过编译，提示未找到方法或数据成员。 提示信息停在txtId1处
哪位帮我看看问题出在什么地方了
Set mrc = ExecuteSQL(txtSQL, MsgText)
Set PartyReport.DataSource = mrc
PartyReport.txtId1.DataField = mrc.Fields(1).name
PartyReport.txtname1.DataField = mrc.Fields(2).name
PartyReport.txtsex1.DataField = mrc.Fields(3).name
PartyReport.txtBorn1.DataField = mrc.Fields(4).name
PartyReport.txtNation1.DataField = mrc.Fields(5).name
PartyReport.txtinsert1.DataField = mrc.Fields(6).name
PartyReport.txtchapter1.DataField = mrc.Fields(7).name
PartyReport.txtIdcard1.DataField = mrc.Fields(8).name
PartyReport.txtWork1.DataField = mrc.Fields(9).name
PartyReport.txtfamily1.DataField = mrc.Fields(10).name
PartyReport.txtTele1.DataField = mrc.Fields(11).name
经过编译，提示未找到方法或数据成员。 提示信息停在txtId1处
哪位帮我看看问题出在什么地方了
...全文
请发表友善的回复…
发表回复
xchd545 2006-11-24
- 打赏
- 举报
mark
nonplus 2006-11-22
- 打赏
- 举报
没问题了。
nonplus 2006-11-22
- 打赏
- 举报
奇怪了，为什么我的表格出来后是个大白版，想要输出的内容都没出来，连页眉都没出来。
nonplus 2006-11-22
- 打赏
- 举报
真是笨，刚才没明白你的意思，现在弄好了。完了，就你一个帮我，都没法揭贴了
feiyun0112 2006-11-22
- 打赏
- 举报
PartyReport.sections("Section1").controls("txtid1").DataField = mrc.Fields(1).name
nonplus 2006-11-22
- 打赏
- 举报
光标停留在Section1上
nonplus 2006-11-22
- 打赏
- 举报
我的section的名字是Section1 按照你上面说的 我把PartyReport.Section1.txtId1.DataField = mrc.Fields(1).name 还是报错，提示信息是未找到方法或数据成员
feiyun0112 2006-11-22
- 打赏
- 举报
txtid1所在section的name
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
nonplus 2006-11-22
- 打赏
- 举报
我用的就是data report 您说的sections("section名"). 是什么意思？
feiyun0112 2006-11-22
- 打赏
- 举报
不知道你用的什么报表
如果是data report
PartyReport.sections("section名").controls("txtid1").DataField = mrc.Fields(1).name
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
如果是data report
PartyReport.sections("section名").controls("txtid1").DataField = mrc.Fields(1).name
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
