data.recordsource="select ss from table_1 where 条件是你要的那条记录" data.refresh set datareport1.datasource=data
Dim rsprint As New ADODB.Recordset rsprint.Open ssql, cnndb, adOpenForwardOnly, adLockReadOnly, adCmdTextSet kindprintdsr.DataSource = rsprint kindprintdsr.Show
┏━★━━◆━━★━┓
♂欢|◢CSDN◣|使♂ ▲自由保存帖子,浏览,关注检测
┃迎|◥论坛助手◤|用┃ ▲完善的CSDN客户端工具
┗━☆━━◇━━━☆┛ ▲自动添加签名......让你更快,更爽,更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip
data.refresh
set datareport1.datasource=data
rsprint.Open ssql, cnndb, adOpenForwardOnly, adLockReadOnly, adCmdTextSet kindprintdsr.DataSource = rsprint
kindprintdsr.Show