導(dǎo)入Execl示例，碰到困難，請(qǐng)教如何設(shè)置子窗體中文本框的數(shù)據(jù)源？

heqing3000

要求與遍歷得到的查詢字段名稱一一對(duì)應(yīng)。不可直接將文本框綁定，因?yàn)槲蚁胱龀梢粋�(gè)活動(dòng)的。
見附件！

todaynew

實(shí)例沒看明白想解決什么問題。
控件來源用me.text1.ControlSource設(shè)置；
控件值用me.text1.value設(shè)置。

heqing3000

思路是：
   1。 查詢一個(gè)EXCEL表格內(nèi)容，QryExcel導(dǎo)入
   2。 子窗體的來源為該查詢
   3。 將子窗體中的文本控件分別與查詢中的字段名相對(duì)應(yīng)。方便查看。
   4。 。。。。。。。接下來就可做成活動(dòng)的導(dǎo)入工具。

heqing3000

Dim rs As DAO.Recordset
Dim Flt As Field
Dim Flt1 As Field
'定義返回對(duì)象實(shí)例
Set rs = CurrentDb.OpenRecordset("QryExcel導(dǎo)入")

'遍歷字段集合,列出所有字段
For Each Flt In rs.Fields
     
                        
            Dim ctl As Control
           '遍歷子窗體上的控件,并將Flt依次指定給其做為來源,這里搞不定???????
            For Each ctl In Me.子窗體.Form.Controls
                If ctl.ControlType = acTextBox Then
                        Me.子窗體.Form.ctl.ControlSource = Flt.Name
                End If
            Next ctl
     
Next Flt

'關(guān)閉記錄集并釋放對(duì)象占用空間
rs.Close
Set rs = Nothing

todaynew

試試：
Dim rs As DAO.Recordset
Dim Flt As Field
Dim ctls As Controls
Dim ctl As Control
Set rs = CurrentDb.OpenRecordset("QryExcel導(dǎo)入")
set ctls=Me.子窗體.Form.Controls
For Each Flt In rs.Fields
            For Each ctl In ctls
                If ctl.ControlType = acTextBox Then
                     ctl.ControlSource = Flt.Name
                End If
            Next ctl
Next Flt
rs.Close
Set rs = Nothing

如果子窗體數(shù)據(jù)源沒有設(shè)置還應(yīng)該加一句設(shè)置窗體數(shù)據(jù)源的語句

heqing3000

這樣還是不行，子窗體中的所有文本來源全是最后一個(gè)字段。我再想想。

上面一個(gè)按鈕就是將左邊的EXCEL文件指定的范圍作為查詢來源的。

我就想這樣比較靈活，方便檢查導(dǎo)入的EXCEL數(shù)據(jù)與需要的數(shù)據(jù)是不是存在結(jié)構(gòu)上的不對(duì)。

todaynew

這樣還是不行，子窗體中的所有文本來源全是最后一個(gè)字段。我再想想。

上面一個(gè)按鈕就是將左邊的EXCEL文件指定的范圍作為查詢來源的。

我就想這樣比較靈活，方便檢查導(dǎo)入的EXCEL數(shù)據(jù)與需要的數(shù)據(jù)是不是存在結(jié)構(gòu) ...
heqing3000 發(fā)表于 2009-12-31 17:44

呵呵，看了看代碼，應(yīng)該如此。內(nèi)層循環(huán)應(yīng)該取消。

試試：
Dim rs As DAO.Recordset
Dim Flt As Field
Dim ctls As Controls
Dim i As long
Set rs = CurrentDb.OpenRecordset("QryExcel導(dǎo)入")
set ctls=Me.子窗體.Form.Controls
i=0
For Each Flt In rs.Fields
      i=i+1
     If ctl.ControlType = acTextBox Then
             clts(i).contrsource= Flt.Name
     End If
Next Flt
rs.Close
Set rs = Nothing

heqing3000

呵呵，老樣子，我改了一下子窗體數(shù)據(jù)源，這樣就能發(fā)現(xiàn)問題了。

heqing3000

todaynew  的方法還是不行， 我現(xiàn)在搞好了，上傳上來分享一下。多謝論壇上的大哥大姐們。

todaynew

todaynew  的方法還是不行， 我現(xiàn)在搞好了，上傳上來分享一下。多謝論壇上的大哥大姐們。41051
heqing3000 發(fā)表于 2009-12-31 20:30

自己解決得來更深刻，呵呵。