主题：[求助]

 改一下。

  If drb.text = "记录表A"  Then
            Dim Book As New XLS.Book(""& dlg.FileName &"")
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Tables("记录表A").StopRedraw()
            Dim nms() As String = { "编号","姓名","中小学","学校","场地","","成绩分数","成绩输入1","成绩输入2","成绩输入4","成绩输入5","奖项","参赛项目" }
           '在“成绩分数”之前有一列“成绩时间”为表达式列，被省略

        For n As Integer = 2 To Sheet.Rows.Count -2
                Dim r As Row = Tables("记录表A").AddNew()
                For m As Integer = 0 To nms.Length - 2

                    If nms(m) <> "" Then

                        r(nms(m)) = Sheet(n,m).Value

                    End If

                Next
            Next
            Tables("记录表A").ResumeRedraw()
        End If

经过测试，还是一样！！！

 

为什么我不能及时看到回复

 不可能错吧，注意细节。

把你这句 "编号","姓名","中小学","学校","场地","","成绩分数","成绩输入1","成绩输入2","成绩输入4","成绩输入5","奖项","参赛项目" 和你的excel的列对应起来，不需要导入的列，用""代替。

   修改过的代码传上来，你看看！！！

 

 Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "Excel文件|*.xls|2007Excel文件|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
        Dim drb As WinForm.ComboBox = e.Form.Controls("ComboBox3")
        Dim sx1 As WinForm.ComboBox = e.Form.Controls("ComboBox5")
        Dim csxm1 As WinForm.ComboBox = e.Form.Controls("ComboBox7")
        DataTables(""& drb.text &"").DeleteFor("竞赛名称  like '*" & sx1.text & "*' And 参赛项目 like '*" & csxm1.text & "*'")
       
        If drb.text = "记录表A"  Then
            Dim Book As New XLS.Book(""& dlg.FileName &"")
            Dim Sheet As XLS.Sheet = Book.Sheets(0)
            Tables("记录表A").StopRedraw()
            Dim nms() As String = { "编号","姓名","中小学","学校","场地","","成绩分数","成绩输入1","成绩输入2","成绩输入4","成绩输入5","奖项","参赛项目" }
            For n As Integer = 2 To Sheet.Rows.Count -1
                Dim r As Row = Tables("记录表A").AddNew()
                For m As Integer = 0 To nms.Length - 1
                    If nms(m) <> "" Then
                        r(nms(m)) = Sheet(n,m).Value
                    End If
                Next
            Next
            Tables("记录表A").ResumeRedraw()
            DataTables("记录表A").Save()
            Tables("记录表A").Filter = ""
        End If
    End  If

 远程吧，或者你的你上传数据表。

找到问题，弄好了！  谢谢！！！