请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有2614人关注过本帖树形打印复制链接主题：请教

hbhb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

请教

Post By：2014/11/24 23:09:00 [只看该作者]

甜大师：好！请问下面的代码错在哪里？为何不对

Dim a As WinForm.Table = e.Form.Controls("Table1")

Dim tb As Table

tb = a.Table

Dim va As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")

Dim sz() As String

If va.Value.Contains(",") Then

sz = va.Value.Split(",")

Else

sz = va.Value

End If

Dim Filter As String

For Each dc As String In sz

If Filter > "" Then

Filter = Filter & " or" & " 名称 like '*" & dc & "*'"

End If

Filter = "名称 like '*" & dc & "*'"

tb.Filter = filter

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/24 23:18:00 [只看该作者]

Dim Filter As String = "1=2"
For Each dc As String In sz
Filter = Filter & " or 名称 Like '%" & dc & "%'"
Next

hbhb

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/11/24 23:21:00 [只看该作者]

For Each dc As String In sz

If Filter > "" Then

Filter = Filter & " or" & " 名称 like '*" & dc & "*'"

else

Filter = "名称 like '*" & dc & "*'"

End If

这样写一样吗？

hbhb

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/11/24 23:36:00 [只看该作者]

请问以上代码为何不能写在离开控件的事件里？在按钮就可以？

Leave

离开控件的后执行。

e参数属性:

Sender：返回触发事件的控件
Form: 返回控件所在的窗口

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/25 9:04:00 [只看该作者]

可以写在leave事件里啊，但是 va.Value 要改成 va.Text

下一主题 >> << 上一主题

主题：请教