（求助）列表框导出到报表或者生成查询

xiaomin_007

各位大侠好，最近做一个配件管理系统，遇到几个比较棘手的问题，还希望大家能帮忙解决一下；

系统主要功能如下：

1.窗体Frm_PartInformation中，管理各部门的配件，并且实现搜索、图片显示等；
此窗体遇到的问题：当搜索中没有相应的结果时，提示类型不匹配错误；或者点击子窗体的空白行时，也显示类型不匹配错误；

2.窗体Frm_PartPurchase中，配件当前在库低于最低下限时，显示在左边的列表框PO_List1中，并且可以有选择的移动到PO_List2中，进行订单打印；
此窗体遇到的问题：怎样将PO_List2中的项目导出到报表，或者生成一个临时表，或者生成一个查询，然后就可以打印订单；
或者干脆可以在PO_List1中进行多选，选择的结果导出到报表。

多谢各位了，比较紧急！

wanncpn

管理员很尽业！

huxinhua

学习了

hope678

学习了

xiaomin_007

老大早上好，看我的代码：
Private Sub txt_PartPhotoPath_AfterUpdate()
' 在选择了一个部品照片后，显示照片．
    On Error Resume Next
  'If (IsRelative(Me!txt_PartPhotoPath) = True) Then
   ' Me![img_PartPhoto].Picture = path & Me![txt_PartPhotoPath]
    'Else
        'Me![img_PartPhoto].Picture = Me![txt_PartPhotoPath]
        'Me![img_PartPhoto].Picture = ""
    'End If
   
    If Me![txt_PartPhotoPath].Value = Null Then
    Me![img_PartPhoto].Picture = ""
    Else
    Me![img_PartPhoto].Picture = Me![txt_PartPhotoPath]
    Me!txt_PartPhotoPath.Requery
    Me!img_PartPhoto.Requery
    Me.Requery
    End If
效果还是一样啊，不知道什么原因，请再指教一下啊，多谢了

hjb016

删除照片的代码应该添加txt_PartPhotoPath_AfterUpdate事件吧!这样删除了照片,应该就能马上更新图片了吧!你先试一下.

xiaomin_007

请教，为什么把编号改成型式来查询删除就提示错误呢

hjb016

有问题就来论坛吧!

xiaomin_007

原来如此，因为在这个表中，型式是唯一的，因为前面的所有处理都是以型式为主键处理的，所以我就试着改着看看，这下知道真实原因了，我还是用编号来处理就可以了，多谢指教啊，今天收益匪浅啊，多谢多谢

xiaomin_007

还有个问题：
为什么删除照片之后切换记录时，照片还是会显示在窗体上呢，路径文本框中分明已经是空值了啊，还有窗体也更新了，用代码把图片也置空了，可是还是显示在窗体上，能否再赐教。谢谢了
    Me![txt_PartPhotoPath] = ""
    Me![img_PartPhoto].Picture = ""