在 表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这些替换掉??谢谢大家,弄了一个下午,还是没有头绪,呜呜