专家坐堂-怎么修改下面的代码，，，打开是窗口不是表？？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么修改下面的代码，，，打开是窗口不是表？？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110012)

--  作者：学学
--  发布时间：2017/11/24 13:26:00
--  怎么修改下面的代码，，，打开是窗口不是表？？

Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
Case "积分"
MainTable = Tables("表A")
Case "客户"
MainTable = Tables("表B")
End Select

[此贴子已经被作者于2017/11/24 13:29:29编辑过]

--  作者：有点甜
--  发布时间：2017/11/24 14:48:00
--

Dim bar As WinForm.NavBar = e.sender

Select Case bar.SelectedPage.ButtonText

Case "积分"

MainTable = Tables("表A")

         forms("窗口1").Show

Case "客户"

MainTable = Tables("表B")

         forms("窗口2").Show

End Select

--  作者：学学
--  发布时间：2017/11/24 14:58:00
--  这个是共有窗口的查询，，，，怎么不可以查询呢》？？

查找不到客户数据表。。。。。。。。。

此主题相关图片如下：qq图片20171124145911.png

Dim Filterkh As String

With e.Form.Controls("客户出生日期")
If .Value IsNot Nothing Then
If Filterkh >"" Then
Filterkh = Filterkh & " And "
End If
Filterkh = Filterkh & "出生日期= #" & .Value & "#"
End If
End With
With e.Form.Controls("客户VIP编号")
If .Text > ""Then
If Filterkh >"" Then
Filterkh = Filterkh & " And "
End If
Filterkh = Filterkh & "VIP编号 like \'%" & .Value & "%\'"
End If
End With
With e.Form.Controls("客户客户姓名")
If .Text > "" Then
If Filterkh >"" Then
Filterkh = Filterkh & " And "
End If
Filterkh = Filterkh & "客户姓名 like \'%" & .Value & "%\'"

End If
End With
With e.Form.Controls("客户客户电话")
If .Text > "" Then
If Filterkh >"" Then
Filterkh = Filterkh & " And "
End If
Filterkh = Filterkh & "客户电话 like \'%" & .Value & "%\'"

End If
End With
With e.Form.Controls("客户微信号")
If .Text > "" Then
If Filterkh >"" Then
Filterkh = Filterkh & " And "
End If
Filterkh = Filterkh & "微信号 like \'%" & .Value & "%\'"

End If
End With
e.Form.Controls("客户窗口_客户数据表").Table.Filterkh = Filterkh

[此贴子已经被作者于2017/11/24 14:59:29编辑过]

--  作者：有点甜
--  发布时间：2017/11/24 15:14:00
--

改一下

msgbox(filterkh)

e.Form.Controls("客户数据表").Table.Filter = Filterkh

--  作者：学学
--  发布时间：2017/11/24 15:22:00
--  页面是这样的，，，，还是不可以。。。左边是共有窗口，，，右边是主窗口
页面是这样的，，，，还是不可以。。。找不到客户数据表
此主题相关图片如下：qq图片20171124152058.png

[此贴子已经被作者于2017/11/24 15:26:52编辑过]

--  作者：有点甜
--  发布时间：2017/11/24 15:48:00
--

红色改成你table控件的名称

e.Form.Controls("Table1").Table.Filter = Filterkh

--  作者：学学
--  发布时间：2017/11/24 15:53:00
--  客户数据表
客户数据表
此主题相关图片如下：qq图片20171124155149.png

[此贴子已经被作者于2017/11/24 15:54:39编辑过]

--  作者：有点甜
--  发布时间：2017/11/24 16:19:00
--

Forms("积分窗口").Controls("客户数据表").Table.Filter = Filterkh

--  作者：学学
--  发布时间：2017/11/24 16:37:00
--  谢谢大神
谢谢大神