以文本方式查看主题

-  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=148192)
--  作者：nxqtxwz
--  发布时间：2020/4/1 22:43:00
--  筛选条件赋值

 

[此贴子已经被作者于2020/4/18 18:25:44编辑过]
--  作者：有点蓝
--  发布时间：2020/4/2 9:57:00
--  
使用cookiehttp://www.foxtable.com/mobilehelp/topics/0042.htm

        If name > "" Then

            wb.AppendCookie("name ", name)

            dr = DataTables("职工信息总表").SQLFind("姓名 =\'" & name & "\'")

        End If


-----------

Dim Book As New XLS.Book(ProjectPath & "Attachments\\资料卡.xls")

        book.AddDataTable("职工信息总表","学校档案","Select * from {职工信息总表} where 姓名 =\'“ & e.Cookies("name ") & ”\'")