如何实现动态选择表的字段来打印表中的数据呢？

Question

如何实现动态选择表的字段来打印表中的数据呢？

Answer 1

报表的field都是绑定到field的，中途不能随便修改。不过你可以先做一个很全的报表，表上什么都有，到打印的时候，不想要的不给赋值就好了

Answer 2

dim rst as new adodb.recordset
dim cnn as new adodb.connection
dim sql as string
sql="……"
rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
Set DataEnvironment1.rsCommand1.DataSource = rst
Set DataReport1.DataSource = DataEnvironment1
DataReport1.Show

Answer 3

先用一个COMBO选择表，再用一个listbox让用户选择字段，然后将些表的字段显示在mshflexgrid中打印的时候打印mshflexgrid表格就行了！
            If MsgBox("你是否要打印？" & vbCrLf & "如果打印，请等待打印作业.....", 4 + 32 + 256, "打印") = vbYes Then
                Printer.ScaleMode = vbCentimeters
                Printer.PaintPicture MSHFlexGrid1.Picture, 2, 2
                Printer.EndDoc
            End If

Answer 4

建议你用active datareport,它可以动态添加字段http://www.loveindds.com/data/dl.asp 此网站有其实例及用法

Answer 5

导入到EXCEL中打印，简单实用