Foxtable(狐表)用户栏目专家坐堂 → [求助] 老师好:在搜索的的时候,显示未找到类型“TabControl”的公共成员“Text”


  共有882人关注过本帖树形打印复制链接

主题:[求助] 老师好:在搜索的的时候,显示未找到类型“TabControl”的公共成员“Text”

帅哥哟,离线,有人找我吗?
xianxin2010
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:2421 威望:0 精华:0 注册:2013/6/6 13:14:00
[求助] 老师好:在搜索的的时候,显示未找到类型“TabControl”的公共成员“Text”  发帖心情 Post By:2023/12/2 19:50:00 [只看该作者]

老师好:

原来的搜索窗口 功能都实现了,现在是在原有的窗口增加了个 页面集合 控件 
在点击搜索的的时候,显示未找到类型“TabControl”的公共成员“Text”。 试过了只要在窗口加其他控件会出现 未找到公共成员“Text”

例子在下方了 谢谢

Dim flt As String
For Each c As Col In Tables("表A").Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If ctl.name <> "Table1" AndAlso ctl.Name <> "Table2" Then
            If e.Form.Controls(ctl.Name).Text > "" Then
                If ctl.Gettype.Name = "RadioButton" Then
                    If ctl.Name.Split("_")(0) = c.Name AndAlso e.Form.Controls(ctl.Name).Checked Then
                        flt + = c.Name & " = '" & e.Form.Controls(ctl.Name).Text & "' And "
                    End If
                Else
                    If ctl.Name.Contains("0") AndAlso ctl.Name.Split("_")(0) = c.Name Then
                        flt + = c.Name & " = '" & e.Form.Controls(ctl.Name).Text & "' And "
                    ElseIf ctl.Name.Contains("1") AndAlso ctl.Name.Split("_")(0) = c.Name Then
                        flt + = c.Name & " >= " & e.Form.Controls(ctl.Name).Text & " And "
                    ElseIf ctl.Name.Contains("2") AndAlso ctl.Name.Split("_")(0) = c.Name Then
                        flt + = c.Name & " <= " & e.Form.Controls(ctl.Name).Text & " And "
                    ElseIf ctl.Name = c.Name AndAlso c.Name = "字符模糊搜索" Then
                        flt + = c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%' And "
                    End If
                End If
            End If
        End If
    Next
Next
If flt > "" Then
    flt = flt.SubString(0,flt.Length - 5)
End If
Tables("表A").Filter = flt



 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模拟高级筛选_单选框.table


[此贴子已经被作者于2023/12/3 10:56:58编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
jshuipu66033
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:64 积分:516 威望:0 精华:0 注册:2023/4/22 14:39:00
  发帖心情 Post By:2023/12/3 13:55:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
xianxin2010
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:2421 威望:0 精华:0 注册:2013/6/6 13:14:00
  发帖心情 Post By:2023/12/3 14:29:00 [只看该作者]

谢谢,还是 等 有点蓝 老师吧!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106857 积分:543492 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/3 20:24:00 [只看该作者]

TabControl是没有text属性的,和表格一样排除掉

Dim flt As String
For Each c As Col In Tables("表A").Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If ctl.name <> "Table1" AndAlso ctl.Name <> "Table2" AndAlso ctl.Name <> "TabControl1" Then
            If e.Form.Controls(ctl.Name).Text > "" Then


 回到顶部
帅哥哟,离线,有人找我吗?
xianxin2010
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:2421 威望:0 精华:0 注册:2013/6/6 13:14:00
  发帖心情 Post By:2023/12/3 20:41:00 [只看该作者]

明白了 图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106857 积分:543492 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/3 20:44:00 [只看该作者]

其实不应该判断控件名称,应该判断控件类型

Dim flt As String
For Each c As Col In Tables("表A").Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If TypeOf ctl Is WinForm.Table OrElse TypeOf ctl Is WinForm.TabControl Then
        Else 
            If e.Form.Controls(ctl.Name).Text > "" Then

 回到顶部