自己构造一个RECORDESET,往里填文本,填完了把DG的数据源设为这个recordset就可以了

解决方案 »

  1.   

    '构造recordset
                Dim rsPrint As New ADODB.Recordset
                
                rsPrint.Fields.Append "serial1", adBSTR
                rsPrint.Fields.Append "money1", adBSTR
                rsPrint.Fields.Append "time1", adBSTR
                
                rsPrint.Fields.Append "serial2", adBSTR
                rsPrint.Fields.Append "money2", adBSTR
                rsPrint.Fields.Append "time2", adBSTR
                rsPrint.CursorType = adOpenStatic
                rsPrint.LockType = adLockOptimistic
                rsPrint.Open            '用Addnew方法往里填数据
                '............            set datagrid.datasource=rsprint