主题：老师我在ftp上传的图片，在报表如何显示呢

好慢啊

dlg.Filter= "Excel文件|*.xlsx|Word文件|*.doc|Access文件|*.mdb" '设置筛选器

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

    Dim nms() As String = {"状态","记录时间","店铺名称","产品类别","单号","产品SKU","责任方","状况描述 原因","客户姓名","联系方式","寄送地址","处理方式","寄送SKU","配件SKU","数量","备注","发货仓库","系统单号","追踪号","物流公司","发货日期","收货日期","下单日期","回访","记录日期","结束日期","赠送SKU","处理时间"}

    Dim nms2() As String = {"状态","记录时间","店铺名称","产品类别","单号","产品SKU","责任方","状况描述 原因","客户姓名","联系方式","寄送地址","处理方式","寄送SKU","配件SKU","数量","备注","发货仓库","系统单号","追踪号","物流公司","发货日期","收货日期","下单日期","回访","记录日期","结束日期","赠送SKU","处理时间"}

    Dim dict As new Dictionary(of String,String)

    For m As Integer = 0 To nms.Length - 1

        dict.add(nms2(m),nms(m))

    Next

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

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

    Tables("table_3").StopRedraw()

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

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

        If  Sheet(n,0).text > "" Then

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

            If DataTables("table_3").Find("单号 = '"& bh &"'")Is Nothing Then '如果不存在同编号的订单

                Dim r As Row = Tables("table_3").AddNew()

                For m1 As Integer = 0 To Sheet.Cols.Count - 1

                    If dict.ContainsKey(Sheet(0,m1).Value)

                        r(dict(Sheet(0,m1).Value)) = Sheet(n,m1).Value

                    End If

                Next

                r("处理人") = user.name

                End If

            End If

        Next

        Tables("table_3").ResumeRedraw()

        msgbox("导入成功")

End If 虽然相同单号不会添加，但是还是会有弹窗出现，如果导入的时候没有弹窗出现