我已经改过来了 可是提示 datafield'空' 这是怎么回事啊

Question

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

Answer 1

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