主题：如何实现这样的主流单元格按钮？

主表click事件：

If e.col.name = "操作" Then
    Select Case e.Table.Current("品名规格")
        Case "371A"
            MainTable = Tables("XX明细")
            Tables("XX明细").filter = ("品名规格 = '371A'")
        Case Else
            Return
    End Select
End If

更为通用的代码：

If e.col.name = "操作" Then
    Dim s As String = e.Table.Current("品名规格")   
    MainTable = Tables("XX明细")
    Tables("XX明细").filter = ("品名规格 = '" & s & "'")   
End If

已经验证，但用无妨。

温馨提示：

      表的单击事件，不区分左右键，千万不要把删除、修改之类的代码或者负荷太重的代码写在表的单击事件中了，不然将后悔莫及。