主题：数据筛选[求助]

在 表A的datacolchanged事件里的代码：

1.Select Case e.DataCol.Name

2.    Case  "主诉"

3.    For i As Integer =1 To DataTables("表B").DataCols.Count-1  

4.    Dim str As String = e.DataRow("主诉")                  ’str为表A主诉列的内容

5.         If str> "" AndAlso str.Contains(Tables("表B").Cols(i).name) Then   ’如果str包含biaoB的列名（第一个列名为【发热】）

6.       Tables("表B").Filter = "[发热] Is not null"   ’在表B中筛选出【发热】列不为空的行

            ····

            End If

             Next  

           End Select

现在的问题是，我要做成循环语句，能不能把第6行代码中的“[发热]”用其他的变量比如i这些替换掉？？谢谢大家，弄了一个下午，还是没有头绪，呜呜