以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于sqltabe向下取值的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28082)
--  作者：夕然
--  发布时间：2013/1/18 10:07:00
--  [求助]关于sqltabe向下取值的问题
在以下的实例中总是提示  不能创建动态sql表，请老师们帮助看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:数据取钻.table
--  作者：lin_hailun
--  发布时间：2013/1/18 10:48:00
--  
 修改一下doubleClick的代码。

With Tables("统计_table1")
    If .current IsNot Nothing
        Dim r As Row =.current
        Select Case e.col.name
            Case "销售员"
                Forms("明细").Show()
                Tables("明细_table1").Fill("Select * From {业绩表} Where [销售员] = \'" & e.Table.Current("销售员") & "\'",False)
            Case Else
                Forms("明细").show()
                Dim lm As String =.Cols(.ColSel).caption          
                Tables("明细_table1").Fill("Select * From {业绩表} Where [销售员] = \'" & e.Table.Current("销售员") & "\' And 产品 = \'" & lm & "\'",False)
        End Select
    End If
End With
--  作者：夕然
--  发布时间：2013/1/18 11:03:00
--  
恩，自己的粗心。
谢谢