主题：请老师帮忙看一下，有没有再优化的空间

DataTables("搜索匹配临时").LoadFilter=""

DataTables("搜索匹配临时").load

DataTables("搜索匹配临时").DeleteFor("")

DataTables("搜索匹配临时").save

DataTables("搜索匹配").LoadFilter=""

DataTables("搜索匹配").load

DataTables("搜索匹配").DeleteFor("")

DataTables("搜索匹配").save

Dim dlg As new OpenFileDialog

dlg.Filter = "Excel文件|*.xls"

Dim fl As String

If dlg.ShowDialog = DialogResult.OK Then

    fl = dlg.FileName

    Vars("name")= dlg.FileName

    Dim dic As Dictionary(Of String ,String)

    Dim book As new XLS.Book(fl)

    Dim sheet As XLS.Sheet = book.Sheets("sheet1")

    If sheet(0,1).Value<>"品名" Then

        msgbox("第一列品名不匹配")

        Return

    End If

    If sheet(0,2).Value<>"封装" Then

        msgbox("第二列封装不匹配")

        Return

    End If

    DataTables("搜索匹配").StopRedraw()

    Dim nms() As String = {"品名","封装"}

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

        Dim dr As DataRow =  DataTables("搜索匹配").AddNew()

        dr("品名") = Sheet(n,1).Value.trim()

        dr("封装") = Sheet(n,2).Value.trim()

    Next

    DataTables("搜索匹配").DeleteFor("品名 is null")

    DataTables("搜索匹配").Save

    Tables("搜索匹配").ResumeRedraw()

Else

    Return

End If

Tables("搜索匹配临时").StopRedraw

Dim js As Integer=1

If Tables("搜索匹配").rows.count <>0

    For Each r As DataRow In Tables("搜索匹配").DataTable.Select("品名 is not null")

        Dim filter As String = ""

        If r.IsNull("封装") Then

            filter = "品名 ='" & r("品名") &"'and 封装 Is null "

        Else

            filter = "品名 ='" & r("品名") &"'and 封装='" & r("封装") &"'"

        End If

        Dim fdr As DataRow = DataTables("销售").sqlfind(filter)

        If fdr IsNot Nothing Then

            Dim lsxs As Row=Tables("搜索匹配临时").AddNew

            lsxs("品名")=fdr("品名")

            lsxs("封装")=fdr("封装")

            lsxs("单价")=fdr("单价")

            lsxs("数量")=fdr("数量")

            lsxs("金额")=fdr("金额")

            lsxs("区域")=fdr("区域")

            lsxs("电话")=fdr("电话")

            lsxs("仓库")=fdr("仓库")

            lsxs("备注")=fdr("备注")

            lsxs("编号")=js

        End If

        Dim txt As String=r("品名")

        txt="'%" & txt.Replace("*", "[*]").Replace("'", "''").Replace("%", "[%]")  & "%'"

        For Each dr As DataRow In DataTables("销售").Select("品名 like " & txt & "")

            If dr("品名")=r("品名") And dr("封装")=r("封装")  Then

            Else

                Dim xsxs As DataRow = dr

                Dim lsxs As Row=Tables("搜索匹配临时").AddNew

                lsxs("品名")=xsxs("品名")

                lsxs("封装")=xsxs("封装")

                lsxs("单价")=xsxs("单价")

                lsxs("数量")=xsxs("数量")

                lsxs("金额")=xsxs("金额")

                lsxs("区域")=xsxs("区域")

                lsxs("电话")=xsxs("电话")

                lsxs("仓库")=xsxs("仓库")

                lsxs("备注")=xsxs("备注")

                lsxs("编号")=js

            End If

        Next

        js=js+1

    Next

End If

DataTables("搜索匹配临时").Save

Tables("搜索匹配临时").ResumeRedraw

Tables("搜索匹配临时").Refresh

msgbox("完成")