主题：筛选符合条件的列

1.连续2个（未知数，也有可能是 连续3个）大于0.56的数据；

2.符合条件的列 找到后，用什么方法来获取这几列数？用隐藏试了下不行，用 

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", GetType(String), 32)
dtb.AddDef("客户", GetType(String), 32)
dtb.AddDef("数量", GetType(Integer))
dtb.AddDef("金额", GetType(Double))
dtb.Build()
MainTable= Tables("统计")

 

用这种方法不知道如何获取符合条件的列？求老师们帮助~~

 

此主题相关图片如下：筛选列.png

''1.所有列设置隐藏
''2.定义变量,获取K值,并获取样本值
''3
Tables("管制图_Table3").Filter = "管制图编号 = '" & Tables("控制图主表").Current("管制图编号") & "'"

'n = 样本
Dim n As Integer = Tables("控制图主表").Current("样本容量")
Dim k1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim k As Integer = k1.value
Dim sz As Integer = Tables("控制图主表").Current("中心限CL")
For i2 As Integer = 3 To Tables("管制图_Table3").Cols.count - 1
Tables("管制图_Table3").Cols(i2).Visible = False
Next
'K = 最终筛选列数
'sz = 要对比的中心数值
'Dim n As Integer  '定义样本
'Dim k As Integer  '定义
Dim i As Integer  '符合条件数
Dim i3 As Integer
Dim i4 As Integer
Dim a As Integer
For a = 3 To n + 3
'i3 = a
  If Tables("管制图_Table3").rows(7)(a) > sz Then

   For i3 = a To a + k
    If Tables("管制图_Table3").rows(7)(i3) >= sz Then
     i = i + 1
     If i >= k Then
For i4 = a - i To a
Tables("管制图_Table3").Cols(i4).Visible = True
Next
     '符合条件隐藏
     End If
    End If
   i = 0
   Next
  End If
Next

 

这是我自己瞎写的，思路是先隐藏列，然后符合条件的列取消隐藏，但测试不成功，想不到用什么方法~~

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

1.找批号列Ｘbar的行中，连续2个出现（未知数，也有可能是 连续3个）大于0.56的列数据；

2.生成一个临时表，接收这几列的符合条件的数据，符合条件的也是就上图中画红框内的两列数据

3.谢谢大红袍老师~~

连续2次出现（未知数，也有可能是 连续3个）大于0.56的列数据；注意不是行，是列；

此主题相关图片如下：1.png


此主题相关图片如下：2.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 需求就是查找符合条件的列，重新生成一个表，可以是临时表

1.找批号列Ｘbar的行中，连续2个出现（未知数，也有可能是 连续3个）大于0.56的列数据；

----这里只有‘样5’列和‘样6’列符合条件

麻烦了红袍老师~~2楼是我自己想出来的代码，用的是隐藏列，可是没能实现目标~~