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

heqing3000

要求與遍歷得到的查詢字段名稱一一對應。不可直接將文本框綁定，因為我想做成一個活動的。
見附件！

todaynew

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

heqing3000

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

heqing3000

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

'遍歷字段集合,列出所有字段
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

'關閉記錄集并釋放對象占用空間
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導入")
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ù)據(jù)源的語句

heqing3000

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

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

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

todaynew

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

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

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

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

試試：
Dim rs As DAO.Recordset
Dim Flt As Field
Dim ctls As Controls
Dim i As long
Set rs = CurrentDb.OpenRecordset("QryExcel導入")
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

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