主题：筛选符合条件的列

 你例子什么也没有。

 请做一个有数据例子，同时，做一个生成的效果。

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("编号", Gettype(String), 32)
dtb.AddDef("批次", Gettype(String), 32)

Dim idx As Integer = 1
Dim count As Integer = 0
Dim dt As DataTable = DataTables("数据源")
Dim fdr As DataRow = dt.Find("批次 = 'Xbar'")
For i As Integer = 1 To 25
    If val(fdr("样" & i)) > 0.56 Then
        count += 1
    Else
        If count >= 2 Then
            For j As Integer= idx To i-1
                dtb.AddDef("样" & j, Gettype(String))
            Next
        End If
        idx = i+1
        count = 0
    End If
Next
dtb.Build()

For i As Integer = 0 To dt.DataRows.Count-4
    If dt.DataRows(i).isnull("样1") = False Then
        Dim dr As DataRow = DataTables("统计").AddNew
        For Each dc As DataCol In DataTables("统计").datacols
            dr(dc.name) = dt.DataRows(i)(dc.name)
        Next
    End If
Next

MainTable= Tables("统计")