主题：学生提问删除行的问题

Dim f As new Filler
Dim filter As String = "删除姓名 Is not null And 年龄 Is not null And 职务 Is not null And 工资 Is not null And (津贴 Is not null Or 加班工资 Is not null)"

f.SourceTable = DataTables("表B") '指定数据来源
f.DataTable = DataTables("表A") '指定数据接收表

f.Filter = filter
f.Fill() '填充数据

DataTables("表B").DeleteFor(filter)

那你这样的表就是不合理的，没有任何意义。

 如果导入的这种表格，先用vba将前两行删除，再导入为临时表，再处理。

 或者，先将数据存放到一个有表结构的临时表里暂存

  呃，肯定要确定第几行是列名，才能做后续的工作啊。

 

  获取到列的行，循环，生成临时表，然后把剩下的数据弄进去

 

 http://www.foxtable.com/help/topics/0679.htm

 

 

生成表以后。

 

循环第三行各列，接着循环从第四行开始，分别取出各列数据赋值到生成的表里。

 自己写。

 加油

Dim cr As Integer = 2
Dim t As Table = Tables("表B")
Dim dt As DataTable = DataTables("表A")

For i As Integer = cr + 1 To t.Rows.Count - 1
    Dim ndr As DataRow = dt.AddNew
    For Each c As Col In t.Cols
        Dim cname As String = t.Rows(cr)(c.Name)
        If dt.DataCols.Contains(cname) Then
            ndr(cname) = t.Rows(i)(c.Name)
        End If
    Next
Next