主题：老师您好，请帮忙修改一段代码，谢谢

老师您好，请帮忙修改一段代码，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:订单下推.rar

选择的订单  -- 哪种方式选择的？使用鼠标在表格里拖动选择？

鼠标选中的行 

遍历选定的行，参考：http://www.foxtable.com/webhelp/topics/1597.htm

一、遍历行代码

With Tables("采购订单管理")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i as Integer = .TopPosition To .BottomPosition
            .Rows(i).Locked = true
        Next
    End If
End With

二、采购入库单下推代码

Select Case e.StripItem.Name        

Case "下推采购入库"

        '下推入库单汇总

        Dim Cols1() As String = {"日期","订单编号","仓库","供应商","收货地址","收货人","收货电话","是否有返利","供应商编号"}

        Dim Cols2() As String = {"日期","入库单编号","仓库","供应商","收货地址","收货人","收货人电话","是否有返利","供应商编号"}

        For Each dr1 As DataRow In DataTables("采购订单管理").Select("") 老师您教我的我还是没搞懂，上面的遍历选定的行代码怎么在这段代码里设置？这里只下推选中的一行。

            Dim dr2 As DataRow = DataTables("采购入库管理").AddNew()

            For i As Integer = 0 To Cols1.Length -1

                dr2(Cols2(i)) = dr1(Cols1(i))

            Next

        Next

          '下推入库单明细

        Dim Cols3() As String = {"商品编号","商品类别","商品名称","采购计量单位","数量","单价","金额","订单编号"}

        Dim Cols4() As String = {"商品编号","商品类别","商品名称","采购计量单位","数量","单价","金额","入库单编号"}

        For Each dr3 As DataRow In DataTables("采购订单明细").Select("") （当上面的订单下推生成入库单时，同步在【采购订单明细】中查询与【采购订单管理】相同订单号的所有行下推生成入库明细）

            Dim dr4 As DataRow = DataTables("采购入库明细").AddNew()

            For i As Integer = 0 To Cols3.Length -1

                dr4(Cols4(i)) = dr3(Cols3(i))

            Next

        Next         

End Select

请老师帮忙改一下上面两个标注颜色部分的代码，谢谢了！

感谢老师！

应该是表事件有代码，导致死循环了

谢谢老师 ！