主题：变量设置问题

n 本来就不是列名嘛。

 只能说列名，作为筛选条件是不能在等号左边用变量替代的！

你这样吧：

if n  = '"& .Value &"' then

       你原来的代码

end if

6楼用“你原来的代码”不对···    你还是给个例子吧。看看有没有其他办法呢。

Dim i As String =  e.Form.Controls("ComboBox1").value    '表名
Dim n As String = e.Form.Controls("ComboBox3").value    '列名
Dim f As String =  e.Form.Controls("combobox5").value    '筛选值
With Tables(i)
    Dim r As Integer
    r = .Find(f,0,Tables(i).cols(n).index, False, False, True)
    If r > - 1 Then    
        .Position = r  
    End If

   Tables(i).Select(r,Tables(i).cols(n).index)
   Tables(i).focus
   Syscmd.Filter.Equal()
End With
 

类似这个问题我以前也没搞懂，申请加精·······

你没弄懂代码的含义呀：

 

Tables(i).Select(2,Tables(i).cols(n).index)   >>>  Tables(i).Select(r,Tables(i).cols(n).index)

 

9楼代码也修改了，申请加精了········

哇哈，申请真的有效啊·····

哪条代码不懂的，你可以逐一列出来。。。

你都不看帮助文件吗：

 

Find

 

在指定列中查找指定的字符内容，如果找到，返回行的位置，否则返回-1。
如果Table处在汇总模式下，计算行位置的时候，分组行不包括在内。

语法：

Find(StrFind, RowStart, Col, caseSensitive, fullMatch, Wrap)
Find(StrFind, RowStart, ColName, caseSensitive, fullMatch, Wrap)

 

下表是参数说明：

参数	说明
StrFind	字符型，要查找的内容
RowStart	整数型，从此行开始查找
Col	整数型，指定要查找的列的位置，也可以是字符型，指定要查找的列的名称。
ColName	字符型，要查找的列的名称。
caseSensitive	逻辑型，是否区分大小写
fullMatch	逻辑型，是否完全匹配，如果设为False，那么查找“北京”,“北京市”也符合要求。
Wrap	逻辑型，是否循环查找。如果设为True，从RowStart指定的行开始查找，一直找到最后一行， 如果还是没有找到符合条件的行，那么就从第一行开始重新查找。

示例一

 

在第一列查找“abc”，不区分大小写，不用完全匹配：

With CurrentTable
    Dim r As Integer
    r = .Find("abc", 0, 0, False, False, True)
    If r > - 1 Then '如果找到符合条件的行
        .Position = r '则选择该行
    End If
End With

 

示例二