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

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编辑过]

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

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

此主题相关图片如下：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编辑过]

改一下

msgbox(filterkh)

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

页面是这样的，，，，还是不可以。。。找不到客户数据表
图片点击可在新窗口打开查看

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

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

红色改成你table控件的名称

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

客户数据表

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

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

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

主题：怎么修改下面的代码，，，打开是窗口不是表？？