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

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

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

hosam

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