主题：求助！导入EXCEL表数据全部为文本

Select Case e.DataCol.Name

    Case "品名","累计销售数"

        Dim dr As DataRow

        Dim mr As DataRow = e.DataRow

        Dim drs As List(of DataRow)

        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [品名] = '" & mr("品名") & "'", "[_SortKey] Desc")

        If dr Is Nothing Then

            mr("期间销售数") = mr("累计销售数") - mr("累计销售数")

            dr = mr

        End If

        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [品名] = '" & dr("品名") & "'", "[_SortKey]")

        For i As Integer = 1 To drs.Count - 1

            drs(i)("累计销售数") = drs(i)("累计销售数") - drs(i-1)("累计销售数")

        Next

        If e.DataCol.Name = "品名" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [品名] = '" & e.OldValue & "'", "[_SortKey] Desc")

            If dr Is Nothing Then

                dr = e.DataTable.Find("[品名] = '" & e.OldValue & "'", "[_SortKey]")

                If dr IsNot Nothing Then

                    dr("期间销售数") = dr("累计销售数") - dr("累计销售数")

                End If

            End If

            If dr IsNot Nothing Then

                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [品名] = '" & dr("品名") & "'", "[_SortKey]")

                For i As Integer = 1 To drs.Count - 1

                    drs(i)("期间销售数") = drs(i)("累计销售数") - drs(i-1)("累计销售数")                Next

            End If

        End If

End Select