建议使用SQL语句.
http://www.wzjcw.net/vbgood/taishan/index.html有代码可以参考

解决方案 »

  1.   

    to dbcontrols(泰山):不详细
    谁能给个代码示例???
      

  2.   

       Dim I
       ReDim CalcArray (0 to DataGrid1.SelBooks.Count - 1)
       For I = 0 to DataGrid1.SelBooks.Count -1
       '在选定的行数组中,把当前行的值
       '放入相应的 CalcArray 单元格。
          CalcArray(I) = _
           DataGrid1.Columns(1).CellValue(DataGrid1.SelBooks(I))
       Next I/*自己看看吧*/
      

  3.   

    to myxiaopei(天神):多谢,但是你的代码不是我所希望的,遗憾。
      

  4.   

    http://www.wzjcw.net/vbgood/taishan/index.html有代码可以参考,看看那个DATAGRID模拟主细表】源代码啊
      

  5.   

    dbcontrols(泰山) :看来是挺详细的,过了。呵呵,多谢了。分数一会送上。