社区

京东店铺
淘宝店铺
当当店铺
拼多多店铺

APP下载

扫描下载官方APP

VIP会员

VB答疑区

+关注

已有23人关注

+发表新帖

所属版块： VB答疑区

三十而立

学分:0

+关注

私信

立即签到

版块推荐

如何实现打印窗体当前数据

发表在VB答疑区 2008-04-03

是否精华是否

版块置顶: 是否

请问，我想将窗体中的数据以报表形式打印出来，可制作报表后，报表接收的数据是整个数据库里的数据而不是窗体当前数据。请给点指点？

分享到：

关注

支持(0)

反对(0)

精彩评论 2

vbsoldier

学分：0 LV1

+关注

私信

2008-04-04

沙发

您好，您可以将报表与当前窗体中的记录集进行绑定，并设置报表中文本框的DataField属性指定显示字段。
请参考以下代码：
Dim cnn As ADODB.Connection Public rs As ADODB.Recordset Private Sub Command1_Click()     Set DataReport1.DataSource = rs     DataReport1.Sections("Section1").Controls("Text1").DataField = "sex"     DataReport1.Show End Sub

支持(0)

反对(0)

三十而立

学分：0 LV1

+关注

私信

2008-04-07

板凳

谢谢您的回复。我照您的办法改写了代码，但我基础较弱，可能没完全理解您的意思。现出现了如下问题，点击打印按钮后，出现“未找到datafield'command1.badgeid'”,报表一片空白。我把我的代码抄录下来，您能帮我看看问题出在哪儿吗？
Private Sub DataList1_Click()   If DataList1.BoundText = "" Then     CurEmp.Init     Image1.Picture = LoadPicture("")     AdoEmpDetail.RecordSource = "SELECT * FROM Employees WHERE EmpId<0"     AdoEmpDetail.Refresh     Exit Sub   End If   '根据选择的员工更新AdoEmpDetail   AdoEmpDetail.RecordSource = "SELECT * FROM Employees " _         + "WHERE EmpId=" + Trim(Str(DataList1.BoundText))   AdoEmpDetail.Refresh   '显示员工照片   Call ShowImage(Image1, AdoEmpDetail)   '读取当前员工信息到CurEmp   CurEmp.GetInfo (DataList1.BoundText)  End Sub Private Sub Command1_Click()'打印按钮   Set DataReport2.DataSource = AdoEmpDetail   DataReport2.Sections("Command2_Detail").Controls("txt出入证号").DataField = "BadgeID"   DataReport2.Sections("Command2_Detail").Controls("txt姓名").DataField = "EmpName"   DataReport2.Sections("Command2_Detail").Controls("txt性别").DataField = "Sex"   DataReport2.Sections("Command2_Detail").Controls("txt出生日期").DataField = "Birth"   DataReport2.Sections("Command2_Detail").Controls("txt常住地址").DataField = "Files_Keep_Org"   DataReport2.Sections("Command2_Detail").Controls("txt暂住地址").DataField = "Hukou"   DataReport2.Sections("Command2_Detail").Controls("txt婚姻状况").DataField = "Marital_Condition"   DataReport2.Sections("Command2_Detail").Controls("txt到岗日期").DataField = "HireDate"   DataReport2.Sections("Command2_Detail").Controls("txt填表日期").DataField = "Fillin_Time"   DataReport2.Sections("Command2_Detail").Controls("txt所属分厂").DataField = "DepId"   DataReport2.Sections("Command2_Detail").Controls("txt工作岗位").DataField = "Position1"   DataReport2.Sections("Command2_Detail").Controls("txt身份证号").DataField = "Id_Card"   DataReport2.Sections("Command2_Detail").Controls("txt备注").DataField = "Memo1"   MsgBox CurEmp.EmpName   If FrmEmpMan.Image1.Picture <> 0 Then   SavePicture FrmEmpMan.Image1.Picture, "temppic\mypicture.bmp"   End If   DataReport2.Show   Const cf_bitmap = 2   Dim msg   On Error Resume Next   Clipboard.Clear   Clipboard.SetData LoadPicture("temppic\mypicture.bmp")   If Err Then      msg = "没有找到照片"      MsgBox msg      Exit Sub   End If      Set DataReport2.Sections("Command2_Detail").Controls("image1").Picture = Clipboard.GetData()      DataReport2.Sections("Command2_Detail").Controls("image1").Picture = LoadPicture() End Sub Private Sub Form_Load()   '设置ADO控件的连接字符串   AdoEmpDetail.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _           + App.Path + "\人事.mdb;Persist Security Info=False"   AdoEmpNameList.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _           + App.Path + "\人事.mdb;Persist Security Info=False"   'ComboState.ListIndex = 0   FocusDepName = "劳动人事科"   Focuskey = ""   'Root Node   Set TmpNode = TreeView1.Nodes.Add(, , "a0", "部门信息", 1, 3)   TmpNode.Selected = True   TmpNode.ExpandedImage = 2   '将部门信息添加到TreeView控件中   Call Add_DepToTree(TreeView1, "a0")   TreeView1_Click   '如果不是管理员，则只显示员工姓名列表   If CurUser.User_type <> 1 Then     Frame1.Visible = False     Frame2.Visible = False     Cmd_Add.Visible = False     Cmd_Modi.Visible = False     Cmd_Del.Visible = False     Cmd_Trans.Visible = False     Me.Width = 2700     Cmd_Back.Left = 600   End If End Sub

支持(0)

反对(0)

首页上一页 1 下一页尾页 2 条记录 1/1页