主题：删除异常

我在导入的时候加入了标签文本提示

e.Form.Controls("提示").Text = "正在导入,请稍后..."
Application.DoEvents()
CurrentTable.AddNew(10000)
e.Form.Controls("提示").Text = "已经导入完成."

导入时确实有提示了 但删除数据就卡机

 

 If MessageBox.Show("是否确定删除?","请确认",MessageBoxButtons.YesNo)=DialogResult.Yes Then
    For Each r As Row In Tables("订单").GetCheckedRows
    r.Delete
Next
End If

这是删除键的代码 (后台看任务显示不响应) 另外我导入的数据有好多空白行 代码是:

        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

这句代码去掉，不然就增加10000行空白行啊

 

CurrentTable.AddNew(10000)

 

------------ 删除数据的代码没有问题，你单独执行看有没有问题

 

------------导入数据的代码没问题

我这猪脑袋

文本提示能不能再导入完成之后5秒 自动隐藏

 

去编写timertick事件

 

e.Form.TimerEnabled = False

e.Form.Controls("提示").Text = ""

 

--------------------

 

导入成功后执行

 

  e.Form.TimerInterval = 5000

  e.Form.TimerEnabled = True