你还好意思说你学了这么久狐表么?怎么连最基本的语法都不会。
Dim r As Row = Tables("表A").Current
If r("lei")= "鞋子" Then
ElseIf r("lei")= "化妆品" Then
End If