用Datareport把msflexgrid里的数据打印出来
打印还是搞不明白。而且有很多的地方的都要用到打印。
我想搞的打印为:
数据全部在msflexgrid中显示,其中可能会有100多记录或更多。
表1=学生资料,表2=成绩
Private conn As New ADODB.Connection
Private rs As New ADODB.Recordset
Private rs1 As New ADODB.Recordset
sqlstr="select * from 表1 where name='" & text1.text & "'"
rs.open sqlstr ,conn
sqlstr="select * from 表2 where name='" & text1.text & "'"
rs1.open sqlstr, conn ,3,3
''''''''连接
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = rs.Fields.Item(1).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = rs.Fields.Item("语文").Value
.
.
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3)+MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4)
现在我想用Datareport把msflexgrid里的数据打印出来,但是我不知道怎么把grid里的数据邦到Datareport上打出来.因grid里的数据是来自不表的两个表,还有一些是通过grid自身的值计算得来的。并且每页只打印30条记录,请指教!