小弟不才~~~请各位vb大大进来看看！

King86

With rptSalesEnquiryChecklist
    Set .DataSource = ar
        .DataMember = ""
     
     With .Sections("Section7").Controls
         For i = 1 To .Count
             If TypeOf .Item(i) Is RptTextBox Then
            
                 Select Case .Item(i).Name
                     Case "txtAddress"
                         .Item(i).DataMember = ""
                         .Item(i).DataField = ar.Fields("Address").Name
                        
                    Case "txtSupplier_Company_Name"
                        .Item(i).DataMember = ""
                        .Item(i).DataField = ar.Fields("Supplier_Company_Name").Name
                        
                    Case "txtSupplier_Name"
                        .Item(i).DataMember = ""
                        .Item(i).DataField = ar.Fields("Supplier_Name").Name
                        
                    Case "txtProduct"
                        .Item(i).DataMember = ""
                        .Item(i).DataField = ar.Fields("Product").Name
                        
                    Case "txtContact_No"
                        .Item(i).DataMember = ""
                        .Item(i).DataField = ar.Fields("Contact_No").Name
                    End Select
                End If
            Next i
        End With
     End With



我的data report会出现这个msg box...到底是什么问题呢？
以上是我的coding...

King86

没人会吗？？我急着要的。。。拜托~

hcong85

Section7?? 你确定是Section7吗??
如果没猜错,Section7多数是Group Footer来的

你放Address, Name, ... 在Group Footer吗??

King86

原帖由 hcong85 于 9-4-2007 06:44 PM 发表
Section7?? 你确定是Section7吗??
如果没猜错,Section7多数是Group Footer来的

你放Address, Name, ... 在Group Footer吗??

是的~~~你去这里看看，你就明白了。。。。

http://chinese.cari.com.my/myforum/viewthread.php?tid=829152&extra=page%3D1

hcong85

酱我就不会了,

不过根据你的Error Message,应该是Data Source放错了.

如果真的不能解决,就直接在Google找"Report sections do not match data source"

waiwaisan

你的coding 和你的database link 不到？