主题：请教一个问题

先测试再导入，还是边导入边测试

 Dim d As Date'变量d用于存储转换结果
If Date.TryParse("下单日期列", d) Then '如果转换成功
    tables（“配载订单”）.addnew（这一行数据）
Else
    tables（“临时表”）.addnew (这一行数据)'给出错误提示
End If

dim r As Double

If Double.TryParse("数量|体积|重量"，r) then

   tables（“配载订单”）.addnew（这一行数据）
Else
    tables（“临时表”）.addnew (这一行数据)'给出错误提示
End If

不知道该怎样做 条件要怎样连接起来 四列数据都要能转换才导得进 导不进的都在临时表

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("总计划表")
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim ary = rg.value

        Tables("配载订单").ResumeRedraw()
        Tables("配载订单").StopRedraw()
        Dim nms() As  String = {"项目","下单日期","MK号","DO号","城市","客户","送货地址","物料代码","数量","体积","重量","承运商","司机","车牌","车数","车型","出车日期"}
       
        For n As Integer = 2 To ws.UsedRange.Rows.Count -1
            Dim r As  Row = Tables("配载订单").AddNew()
            For  m As  Integer = 0 To nms.Length - 1
                If Tables("配载订单").Cols(nms(m)).IsDate Then
                    Dim d As Date
                    If Date.TryParse(ary(n,m+1), d)
                        r(nms(m)) = d
                    End If
                Else
                    r(nms(m)) = ary(n,m+1)
                   
                End If
            Next
        Next
        Tables("配载订单").ResumeRedraw()
       
    catch ex As exception
        msgbox(ex.message)
        app.quit
    End try
End If
e.Form.Controls("提示").Text = "正在导入,请稍后..."
Application.DoEvents()
e.Form.Controls("提示").Text = "已经导入完成."
 e.Form.TimerInterval = 5000
  e.Form.TimerEnabled = True

 

帮忙在这段代码上指引一下

在这个位置处理

 

For n As Integer = 2 To ws.UsedRange.Rows.Count -1
    Dim r As Row
    Dim msg As String = ""
    For  m As  Integer = 0 To nms.Length - 1
        If Tables("配载订单").Cols(nms(m)).IsDate Then
            Dim d As Date
            If Date.TryParse(ary(n,m+1), d) = False Then '如果不能转成日期,肯定是不能导入的
                msg &= "【" & ary(n,m+1) & "】不能转成日期" & vbcrlf
            End If
            If Tables("配载订单").Cols(nms(m)).IsNumeric Then
                Dim d As Double
                If Double.TryParse(ary(n,m+1), d) = False Then '如果不能转成日期,肯定是不能导入的
                    msg &= "【" & ary(n,m+1) & "】不能转成数值" & vbcrlf
                End If
            End If
        Next
        If msg > "" Then
            msgbox(msg)
            r = Tables("临时表").addnew
        Else
            Tables("配载订单").addnew
        End If
       
        For  m As  Integer = 0 To nms.Length - 1
            r(nms(m)) = ary(n,m+1)
        End If
    Next
Next

 

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("总计划表")
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim ary = rg.value
       
        Tables("配载订单").ResumeRedraw()
        Tables("配载订单").StopRedraw()
        Dim nms() As  String = {"项目","下单日期","MK号","DO号","城市","客户","送货地址","物料代码","数量","体积","重量","承运商","司机","车牌","车数","车型","出车日期"}
       
        For n As Integer = 2 To ws.UsedRange.Rows.Count -1
            Dim r As Row
            Dim msg As String = ""
            For  m As  Integer = 0 To nms.Length - 1
                If Tables("配载订单").Cols(nms(m)).IsDate Then
                    Dim d As Date
                    If Date.TryParse(ary(n,m+1), d) = False Then '如果不能转成日期,肯定是不能导入的
                        msg &= "【" & ary(n,m+1) & "】不能转成日期" & vbcrlf
                    End If
                    If Tables("配载订单").Cols(nms(m)).IsNumeric Then
                        Dim d As Double
                        If Double.TryParse(ary(n,m+1), d) = False Then '如果不能转成日期,肯定是不能导入的
                            msg &= "【" & ary(n,m+1) & "】不能转成数值" & vbcrlf
                        End If
                    End If
                Next
                If msg > "" Then
                    msgbox(msg)
                    r = Tables("临时表").addnew
                Else
                    Tables("配载订单").addnew
                End If
               
                For  m As  Integer = 0 To nms.Length - 1
                    r(nms(m)) = ary(n,m+1)
                End If
            Next
        Next
        Tables("配载订单").ResumeRedraw()
       
    catch ex As exception
        msgbox(ex.message)
        app.quit
    End try
End If

 

 

try..........catch...........end try 在按钮事件中已经写入了 为什么还是提示 try必须跟 end try 结束

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("总计划表")
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim ary = rg.value
       
        Tables("配载订单").ResumeRedraw()
        Tables("配载订单").StopRedraw()
        Dim nms() As  String = {"项目","下单日期","MK号","DO号","城市","客户","送货地址","物料代码","数量","体积","重量","承运商","司机","车牌","车数","车型","出车日期"}
       
        For n As Integer = 2 To ws.UsedRange.Rows.Count -1
            Dim r As Row
            Dim msg As String = ""
            For  m As  Integer = 0 To nms.Length - 1
                If Tables("配载订单").Cols(nms(m)).IsDate Then
                    Dim d As Date
                    If Date.TryParse(ary(n,m+1), d) = False Then '如果不能转成日期,肯定是不能导入的
                        msg &= "【" & ary(n,m+1) & "】不能转成日期" & vbcrlf
                    End If
                End If
                If Tables("配载订单").Cols(nms(m)).IsNumeric Then
                    Dim d As Double
                    If Double.TryParse(ary(n,m+1), d) = False Then '如果不能转成日期,肯定是不能导入的
                        msg &= "【" & ary(n,m+1) & "】不能转成数值" & vbcrlf
                    End If
                End If
            Next
            If msg > "" Then
                msgbox(msg)
                r = Tables("临时表").addnew
            Else
                Tables("配载订单").addnew
            End If
           
            For  m As  Integer = 0 To nms.Length - 1
                r(nms(m)) = ary(n,m+1)
            Next
        Next
        Tables("配载订单").ResumeRedraw()
       
    catch ex As exception
        msgbox(ex.message)
        app.quit
    End try
End If