以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  关于右键筛选当前料号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69340)

--  作者：dj68301367 --  发布时间：2015/6/3 12:02:00 --  关于右键筛选当前料号 Dim fil As String  fil=e.DataRow("物料编码") Tables("物料总表").Filter="物料编码 = \'" & fil & "\'"

--  作者：大红袍 --  发布时间：2015/6/3 12:33:00 --   fil = Tables("物料总表").Current("物料编码")

--  作者：dj68301367 --  发布时间：2015/6/3 14:16:00 --   Dim fil As String  Dim EName As String  Dim Mtable As String mtable= 当前表名称 \'这个代码怎么写 ename= e.Col.name \'这一行调试出错 fil = Tables("物料总表").Current("物料编码") Tables(mtable).Filter= ename & " = \'" & fil & "\'"

--  作者：大红袍 --  发布时间：2015/6/3 14:22:00 --   mtable= CurrentTable.Name ename= CurrentTable.Cols(CurrentTable.ColSel).Name [此贴子已经被作者于2015/6/3 14:22:07编辑过]