Private Sub DataReport_Initialize()Dim adoconnectionx As New ADODB.ConnectionDim adorecordsetx As New ADODB.RecordsetDim mpath$, mlink$, sql$mpath = App.PathIf Right(mpath, 1) <> "\" Then mpath = mpath + "\"mlink = "provider=microsoft.jet.oledb.4.0;"mlink = mlink + "data source=" + mpath + "XX.mdb"adoconnectionx.Open = mlinksql = "select * from XXtable"adorecordsetx.Open sql, adoconnectionxSet DataReport1.DataSource = adorecordsetxMe.Sections("section1").Controls("text1").DataField = adorecordsetx.Fields.Item(0).NameMe.Sections("section1").Controls("text2").DataField = adorecordsetx.Fields.Item(1).NameMe.Sections("section1").Controls("text3").DataField = adorecordsetx.Fields.Item(2).NameMe.Sections("section1").Controls("text4").DataField = adorecordsetx.Fields.Item(3).NameMe.Sections("section1").Controls("text5").DataField = adorecordsetx.Fields.Item(4).NameMe.Sections("section1").Controls("text6").DataField = adorecordsetx.Fields.Item(5).NameMe.Sections("section1").Controls("text7").DataField = adorecordsetx.Fields.Item(6).NameEnd Sub這個代碼總是出現問題 請幫我改下問題出現在這里adoconnectionx.Open = mlink提示。open缺少函數或變量謝謝了?。?！adoconnectionx.Open = mlink改為adoconnectionx.Open mlink
1 回答
繁星淼淼
TA貢獻1775條經驗 獲得超11個贊
adoconnectionx.Open = mlink
改為
adoconnectionx.Open mlink
我已經改過來了 可是提示 datafield'空' 這是怎么回事啊
可改為:
With DataReport1
Set .DataSource = adorecordsetx
.DataMember = ""
With .Sections("Section1").Controls
For i = 1 To .Count
If TypeOf .Item(intctrl) Is RptTextBox Then
.Item(i).DataMember = ""
.Item(i).DataField = adorecordsetx.Fields.Item(i - 1).Name
End If
Next i
End With
End With
添加回答
舉報
0/150
提交
取消