共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助] 老师好：在搜索的的时候，显示未找到类型“TabControl”的公共成员“Text”
1楼
xianxin2010 发表于：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编辑过]
2楼
jshuipu66033 发表于：2023/12/3 13:55:00
3楼
xianxin2010 发表于：2023/12/3 14:29:00谢谢，还是 等 有点蓝 老师吧！
4楼
有点蓝 发表于：2023/12/3 20:24:00TabControl是没有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
5楼
xianxin2010 发表于：2023/12/3 20:41:00明白了 
6楼
有点蓝 发表于：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
共6 条记录, 每页显示 10 条, 页签:
[1]