<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access培訓
      網站公告
      ·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
      您的位置: 首頁 > 技術文章 > Access數據庫-模塊/函數/VBA

      把交叉表中的數據追加到一個完整的表中參與計算

      時 間:2007-10-09 19:17:48
      作 者:VictorDuane   ID:70  城市:閔行
      摘 要:把交叉表中的數據追加到一個完整的表中,參與計算,特別是在計算列與列之間的運算邏輯關系時特別有效
      正 文:

      有時候做交叉表的時候知道表中有多少的字段,要計算字段與字段之間運算關系的時候,因為交叉表列數是不穩定的,所以我把得到的數據追加到一個固定的表\的字段中然后計算字段之間的關系,這個函數也適合用于追加表標題相同的數據到另一個表中


      sub uf_InsertTable(strFromTable As String, strIntoTable As String)
      ''追加數據到一個完整的表里,strfromtable為數據來源表,strintotabel為要插入數據的表
      Dim rst As DAO.Recordset
      Dim fld As Field
      Dim fldName As String
      Set rst = CurrentDb.OpenRecordset(strFromTable, dbOpenDynaset)
      For Each fld In rst.Fields
              fldName = fldName & fld.Name & ","
      Next
      fldName = Left(fldName, Len(fldName) - 1)
      ''Debug.Print fldName
      strSQL = "Insert INTO " & strIntoTable & "(" & fldName & " ) Select " & fldName & " FROM " & strFromTable & ";"
      docmd.setwarnings false
      DoCmd.RunSQL strSQL

      docmd.setwarnings true

      End sub



      Access軟件網QQ交流群 (群號:252407829)       access源碼網店

      最新評論 查看更多評論(0)

      發表評論您的評論將提升作者分享的動力!快來評論一下吧!

      用戶名:
      密 碼:
      內 容:
       

      常見問答

      技術分類

      相關資源

      關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助