社区

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

APP下载

扫描下载官方APP

VIP会员

VB答疑区

+关注

已有23人关注

+发表新帖

所属版块： VB答疑区

三十而立

学分:0

+关注

私信

立即签到

版块推荐

如何实现报表数据来源于同一数据库的两个表

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

是否精华是否

版块置顶: 是否

Private Sub Command1_Click()'打印按钮   Set DataReport2.DataSource = AdoEmpDetail.recordset   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 = select depname from departments where depid = "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"   kill "temppic\mypicture.bmp"   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