With Tables("发货计划单")

    If .current IsNot Nothing Then

        Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

        dlg.Filter= "Excel文件|*.xls|Excel2007文件|*.xlsx" \'设置筛选器

        If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

            \'\'MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件

            Dim Book As New XLS.Book(dlg.FileName)

            Dim Sheet As XLS.Sheet = Book.Sheets(0)

            Tables("计划发货明细").StopRedraw()

            \'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

            Dim nms() As String = {"销售订单号","客户编号","产品编号","计划发货数量","计划发货日期"}

            \'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

            For n As Integer = 1 To Sheet.Rows.Count -1

                Dim ddh As String = sheet(n,0).Text

                Dim kh As String = sheet(n,1).Text

                Dim cp As String = sheet(n,2).Text

                Dim dr As DataRow

               dr= DataTables("计划发货明细").Find("销售订单号 = \'" & bh & "\' and 客户编号=\'" & kh & "\' and 产品编号=\'" & cp & "\' and 计划单号=\'" & .current("计划单号") & "\'")  

                If dr IsNot Nothing Then

                    dr("计划发货数量")=sheet(n,3).Text

                    dr("计划发货日期")=sheet(n,4).Text

                End If

            Next

            Tables("计划发货明细").ResumeRedraw()

        End If

    End If

End With