根据表中结果再自动进行筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

系统根据测评分数，自动在优先选择出现筛选的结果，比如结果为136，可能他在表中出最高分大于136，及最低分小于136的，有时候可能会出现两个结果；

但希望能在第二选择哪里出现根据第一选择中“职等”，显示“职等+1”及“职等-1”的结果；

窗口触发代码：

Dim L As String = e.Form.Controls("Textleib").Value

Dim F As String = e.Form.Controls("Textfenshu").Value

Dim X As String = e.Form.Controls("ComboLine").Value

Tables("职等测评_Table2").DataTable.LoadFilter = "[类别编号] = '" & L & "' And [职业线] = '" & X & "' And [最高分] > '" & F & "' And [最低分] < '" & F & "'"

Tables("职等测评_Table2").DataTable.Load

Dim tc As WinForm.TabControl = e.Form.Controls("TabControl1")

tc.SelectedPage = tc.TabPages("结果筛选")

另外需要提醒的是，比如优先出现2个结果，分部职等为6，7的话，那么在第二选择哪里将会出现5，8；

若优先结果哪里出现1个结果职等为6时，那么第二选择哪里将会出现5，7；

请问应该如何增加第二选择的代码，谢谢！

比如

Dim r1 As Row = Tables("职等测评_Table2").Rows(0)

Dim r2 As Row = Tables("职等测评_Table2").Rows(Tables("职等测评_Table2").Rows.Count-1)

Tables("职等测评_Table1").DataTable.LoadFilter = "等级 in ('" & r1("等级")-1 & "', '" & r2("等级")+1 & "') and [类别编号] = '" & L & "' And [职业线] = '" & X & "'"

Tables("职等测评_Table1").DataTable.Load

[此贴子已经被作者于2016/7/12 11:57:11编辑过]

具体，最好上传实例。

我修改成为这样可以使用，

Dim r1 As Row = Tables("职等测评_Table2").Rows(0)

Dim r2 As Row = Tables("职等测评_Table2").Rows(Tables("职等测评_Table2").Rows.Count-1)

Tables("职等测评_Table3").DataTable.LoadFilter = "职等 in ('" & r1("职等")-1 & "','" & r1("职等")+1 & "', '" & r2("职等")-1 & "', '" & r2("职等")+1 & "') and [类别编号] = '" & L & "' And [职业线] = '" & X & "'"

Tables("职等测评_Table3").DataTable.Load

但若要将职等与原来一样的不在第二选择中体现的话，应该如何修改？

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

如上图，将7和8不在第二个表中体现；

Dim filter1 As String = ""
Dim filter2 As String = ""
For Each r As Row In Tables("职等测评_Table2").Rows
filter1 &= "'" & r("等级")+1 & "','" & r("等级")-1 & "',"
filter2 &= "'" & r("等级") & "',"
Next

Tables("职等测评_Table3").DataTable.LoadFilter = "职等 in ('" & filter1.trim(",") & "') and 等级 not in ('" & filter2.trim(",") & "') and [类别编号] = '" & L & "' And [职业线] = '" & X & "'"
Tables("职等测评_Table3").DataTable.Load

主题：根据表中结果再自动进行筛选