求助：如何能使这个窗体使用更方便

zj167304

我是一个新手，从事零售行业管理工作。前几天和一个业务朋友谈起access,学习试着做一个自己的进销存软件。主要学习来源是内置的帮助文件，不懂任何编程语言～感觉很困难。
做了一个出货单的窗体，双击物资代码会打开选择物资，并读取物质的资料，追加到订货单草稿。
基本功能可以用，但是很麻烦。
比如一次选择多个商品追加到订货单草稿，这个功能怎么也做不了。有高手能提示一下吗？
另外，我在物质面板里面查找只能查找 组合框 的商品名称，不能同时对代码，条形码查找。怎么才能实现对商品各个信息的查找呢？请高手给点提示

hosam

谢谢分享~~~~~~~~

luhao

5# zj167304


你作修改可以达成你的心愿.................................
    Dim i As Integer
    Dim rst As New ADODB.Recordset
    rst.Open "生产计划明细", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 0 To List0.ListCount - 1
    If List0.Selected(i) = True Then
    rst.AddNew
    rst("流水单号ID") = Forms![frm-排产订划单]![流水单号]
    rst("模具编码") = List0.Column(0, i)
    rst("物料名称") = List0.Column(1, i)
    rst("表色") = List0.Column(2, i)
    rst("材质") = List0.Column(3, i)
    rst("销售订单") = List0.Column(4, i)
    rst("生产订单数量") = List0.Column(5, i)
    rst("单重") = List0.Column(6, i)
    rst("重量") = List0.Column(7, i)
   ' rst("isfinish") = List0.Column(8, I)
    List0.Selected(i) = False
    End If
    Next
   ' DoCmd.close
    rst.Update
    Forms![frm-排产订划单].Child.Form.Requery
    Forms![frm-排产订划单].List0.Requery

luhao

你作修改可以达成你的心愿.................................
    Dim i As Integer
    Dim rst As New ADODB.Recordset
    rst.Open "生产计划明细", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 0 To List0.ListCount - 1
    If List0.Selected(i) = True Then
    rst.AddNew
    rst("流水单号ID") = Forms![frm-排产订划单]![流水单号]
    rst("模具编码") = List0.Column(0, i)
    rst("物料名称") = List0.Column(1, i)
    rst("表色") = List0.Column(2, i)
    rst("材质") = List0.Column(3, i)
    rst("销售订单") = List0.Column(4, i)
    rst("生产订单数量") = List0.Column(5, i)
    rst("单重") = List0.Column(6, i)
    rst("重量") = List0.Column(7, i)
   ' rst("isfinish") = List0.Column(8, I)
    List0.Selected(i) = False
    End If
    Next
   ' DoCmd.close
    rst.Update
    Forms![frm-排产订划单].Child.Form.Requery
    Forms![frm-排产订划单].List0.Requery

luhao

你作修改可以达成你的心愿.................................
    Dim i As Integer
    Dim rst As New ADODB.Recordset
    rst.Open "生产计划明细", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 0 To List0.ListCount - 1
    If List0.Selected(i) = True Then
    rst.AddNew
    rst("流水单号ID") = Forms![frm-排产订划单]![流水单号]
    rst("模具编码") = List0.Column(0, i)
    rst("物料名称") = List0.Column(1, i)
    rst("表色") = List0.Column(2, i)
    rst("材质") = List0.Column(3, i)
    rst("销售订单") = List0.Column(4, i)
    rst("生产订单数量") = List0.Column(5, i)
    rst("单重") = List0.Column(6, i)
    rst("重量") = List0.Column(7, i)
   ' rst("isfinish") = List0.Column(8, I)
    List0.Selected(i) = False
    End If
    Next
   ' DoCmd.close
    rst.Update
    Forms![frm-排产订划单].Child.Form.Requery
    Forms![frm-排产订划单].List0.Requery

luhao

你作修改可以达成你的心愿.................................
    Dim i As Integer
    Dim rst As New ADODB.Recordset
    rst.Open "生产计划明细", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 0 To List0.ListCount - 1
    If List0.Selected(i) = True Then
    rst.AddNew
    rst("流水单号ID") = Forms![frm-排产订划单]![流水单号]
    rst("模具编码") = List0.Column(0, i)
    rst("物料名称") = List0.Column(1, i)
    rst("表色") = List0.Column(2, i)
    rst("材质") = List0.Column(3, i)
    rst("销售订单") = List0.Column(4, i)
    rst("生产订单数量") = List0.Column(5, i)
    rst("单重") = List0.Column(6, i)
    rst("重量") = List0.Column(7, i)
   ' rst("isfinish") = List0.Column(8, I)
    List0.Selected(i) = False
    End If
    Next
   ' DoCmd.close
    rst.Update
    Forms![frm-排产订划单].Child.Form.Requery
    Forms![frm-排产订划单].List0.Requery

luhao

1# zj167304
你作修改可以达成你的心愿.................................
    Dim i As Integer
    Dim rst As New ADODB.Recordset
    rst.Open "生产计划明细", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 0 To List0.ListCount - 1
    If List0.Selected(i) = True Then
    rst.AddNew
    rst("流水单号ID") = Forms![frm-排产订划单]![流水单号]
    rst("模具编码") = List0.Column(0, i)
    rst("物料名称") = List0.Column(1, i)
    rst("表色") = List0.Column(2, i)
    rst("材质") = List0.Column(3, i)
    rst("销售订单") = List0.Column(4, i)
    rst("生产订单数量") = List0.Column(5, i)
    rst("单重") = List0.Column(6, i)
    rst("重量") = List0.Column(7, i)
   ' rst("isfinish") = List0.Column(8, I)
    List0.Selected(i) = False
    End If
    Next
   ' DoCmd.close
    rst.Update
    Forms![frm-排产订划单].Child.Form.Requery
    Forms![frm-排产订划单].List0.Requery

lanshai

把例子拿出来分享下吧

tz-chf

窗口蛮整齐。关键是要快速方便地找到要添加的商品。

zj167304

3# jackysu78
我想实现那种按住鼠标拖选；按Ctrl+鼠标点击选多一条记录；按Shift选择范围记录的那种。