类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我有2张表 gbjbqkb,gbkhqkb 两张表有一个相同的字段id，我在显示报表的时候总是说我的报表参数不足，期待是１，我想是不是我的查询条件有问题，但是我检查了很久也没发现．大家帮忙看下，谢谢
Option Explicit
Private Sub DataReport_Initialize()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Sql As String
连接数据库(Access)
Set cn = New ADODB.Connection
cn.Open "DSN=hhh"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;" & _
"Data Source=" & App.Path & "\db1.mdb;" & _
"Persist Security Info=False"
设置text控件属性
DataReport2.Sections("Section1").Controls("text1").DataField = "gbkhqkb.id"
DataReport2.Sections("Section1").Controls("text2").DataField = "gbjbqkb.xm"
DataReport2.Sections("Section1").Controls("text3").DataField = "gbjbqkb.xb"
DataReport2.Sections("Section1").Controls("text4").DataField = "gbjbqkb.mz"
DataReport2.Sections("Section1").Controls("text5").DataField = "gbjbqkb.csny"
DataReport2.Sections("Section1").Controls("text6").DataField = "gbjbqkb.jg"
DataReport2.Sections("Section1").Controls("text7").DataField = "gbjbqkb.cgsj"
DataReport2.Sections("Section1").Controls("text8").DataField = "gbjbqkb.gzdw"
DataReport2.Sections("Section1").Controls("text9").DataField = "gbjbqkb.zwmc"
DataReport2.Sections("Section1").Controls("text10").DataField = "gbjbqkb.xxjl"
DataReport2.Sections("Section1").Controls("text11").DataField = "gbkhqkb.khnd"
DataReport2.Sections("Section1").Controls("text12").DataField = "gbkhqkb.khjg"
DataReport2.Sections("Section1").Controls("text13").DataField = "gbkhqkb.zhdf"
DataReport2.Sections("Section1").Controls("text14").DataField = "gbkhqkb.cprs"
DataReport2.Sections("Section1").Controls("text15").DataField = "gbkhqkb.ysp"
DataReport2.Sections("Section1").Controls("text16").DataField = "gbkhqkb.czp"
DataReport2.Sections("Section1").Controls("text17").DataField = "gbkhqkb.jbcz"
DataReport2.Sections("Section1").Controls("text18").DataField = "gbkhqkb.bcz"
DataReport2.Sections("Section1").Controls("text19").DataField = "gbkhqkb.ypl"
DataReport2.Sections("Section1").Controls("text20").DataField = "gbkhqkb.jbpl"
DataReport2.Sections("Section1").Controls("text21").DataField = "gbkhqkb.bczl"
DataReport2.Sections("Section1").Controls("text22").DataField = "gbkhqkb.aa"
DataReport2.Sections("Section1").Controls("text23").DataField = "gbkhqkb.bb"
DataReport2.Sections("Section1").Controls("text24").DataField = "gbkhqkb.cc"
DataReport2.Sections("Section1").Controls("text25").DataField = "gbkhqkb.dd"
DataReport2.Sections("Section1").Controls("text26").DataField = "gbkhqkb.ee"
DataReport2.Sections("Section1").Controls("text27").DataField = "gbkhqkb.a1"
DataReport2.Sections("Section1").Controls("text28").DataField = "gbkhqkb.a2"
DataReport2.Sections("Section1").Controls("text29").DataField = "gbkhqkb.a3"
DataReport2.Sections("Section1").Controls("text30").DataField = "gbkhqkb.a4"
DataReport2.Sections("Section1").Controls("text31").DataField = "gbkhqkb.b5"
DataReport2.Sections("Section1").Controls("text32").DataField = "gbkhqkb.b6"
DataReport2.Sections("Section1").Controls("text33").DataField = "gbkhqkb.b7"
DataReport2.Sections("Section1").Controls("text34").DataField = "gbkhqkb.b8"
DataReport2.Sections("Section1").Controls("text35").DataField = "gbkhqkb.b9"
DataReport2.Sections("Section1").Controls("text36").DataField = "gbkhqkb.b10"
DataReport2.Sections("Section1").Controls("text37").DataField = "gbkhqkb.b11"
DataReport2.Sections("Section1").Controls("text38").DataField = "gbkhqkb.b12"
DataReport2.Sections("Section1").Controls("text39").DataField = "gbkhqkb.b13"
DataReport2.Sections("Section1").Controls("text40").DataField = "gbkhqkb.b14"
DataReport2.Sections("Section1").Controls("text41").DataField = "gbkhqkb.b15"
DataReport2.Sections("Section1").Controls("text42").DataField = "gbkhqkb.b16"
DataReport2.Sections("Section1").Controls("text43").DataField = "gbkhqkb.b17"
DataReport2.Sections("Section1").Controls("text44").DataField = "gbkhqkb.c18"
DataReport2.Sections("Section1").Controls("text45").DataField = "gbkhqkb.c19"
DataReport2.Sections("Section1").Controls("text46").DataField = "gbkhqkb.c20"
DataReport2.Sections("Section1").Controls("text47").DataField = "gbkhqkb.c21"
DataReport2.Sections("Section1").Controls("text48").DataField = "gbkhqkb.d22"
DataReport2.Sections("Section1").Controls("text49").DataField = "gbkhqkb.d23"
DataReport2.Sections("Section1").Controls("text50").DataField = "gbkhqkb.d24"
DataReport2.Sections("Section1").Controls("text51").DataField = "gbkhqkb.d25"
DataReport2.Sections("Section1").Controls("text52").DataField = "gbkhqkb.d26"
DataReport2.Sections("Section1").Controls("text53").DataField = "gbkhqkb.e27"
DataReport2.Sections("Section1").Controls("text54").DataField = "gbkhqkb.e28"
DataReport2.Sections("Section1").Controls("text55").DataField = "gbkhqkb.e29"
DataReport2.Sections("Section1").Controls("text56").DataField = "gbkhqkb.e30"
打开记录集
Set rs = New ADODB.Recordset
Sql = "select gbkhqkb.id,gbjbqkb.xm,gbjbqkb.xb,gbjbqkb.mz,gbjbqkb.csdy,gbjbqkb.jg,gbjbqkb.cgsj,gbjbqkb.gzdw,gbjbqkb.zwmc,gbjbqkb.xxjl,gbkhqkb.khnd,gbkhqkb.khjg,gbkhqkb.zhdf,gbkhqkb.cprs,gbkhqkb.ysp,gbkhqkb.czp,gbkhqkb.jbcz,gbkhqkb.bcz,gbkhqkb.ypl,gbkhqkb.jbpl,gbkhqkb.bczl,gbkhqkb.aa,gbkhqkb.bb,gbkhqkb.cc,gbkhqkb.dd,gbkhqkb.ee,gbkhqkb.a1,gbkhqkb.a2,gbkhqkb.a3,gbkhqkb.a4,gbkhqkb.b5,gbkhqkb.b6,gbkhqkb.b7,gbkhqkb.b8,gbkhqkb.b9,gbkhqkb.b10,gbkhqkb.b11,gbkhqkb.b12,gbkhqkb.b13,gbkhqkb.b14,gbkhqkb.b15,gbkhqkb.b16,gbkhqkb.b17,gbkhqkb.c18,gbkhqkb.c19,gbkhqkb.c20,gbkhqkb.c21,gbkhqkb.d22,gbkhqkb.d23,gbkhqkb.d24,gbkhqkb.d25,gbkhqkb.d26,gbkhqkb.e27,gbkhqkb.e28,gbkhqkb.e29,gbkhqkb.e30 from gbkhqkb,gbjbqkb where gbjbqkb.id=gbkhqkb.id and gbjbqkb.id=" & Trim(Form1.Text1.Text) & ""
rs.Open Sql, cn, 1, 3
Set DataReport2.DataSource = rs
End Sub
网友回答：