Foxtable(狐表) → 用户栏目 → 专家坐堂 → 调用文本值作条件出错


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

主题：调用文本值作条件出错
帅哥，在线噢！
zhuxinhui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1762 积分：4605 威望：0 精华：0 注册：2017/11/8 17:37:00 		调用文本值作条件出错  发帖心情 Post By：2020/2/21 17:44:00 [只看该作者]

Dim name  As  String = e.Form.Controls("TextBox1").Text
Dim name1  As  String = e.Form.Controls("TextBox29").Text
Dim name2  As  String = e.Form.Controls("TextBox30").Text
Dim name3  As  String = e.Form.Controls("TextBox31").Text
Dim name4  As  String = e.Form.Controls("TextBox32").Text

Dim txt  As  String = e.Form.Controls("TextBox14").Text
 Dim tbl As Table = Tables(name)
 If txt = "" Then
     tbl.Filter = ""
 Else
     txt = "'%" & txt & "%'"
     tbl.Filter = name1 Like  & txt &  Or name2 Like  & txt &  Or name3 Like  & txt &   Or name4 Like  & txt
 End If

 

这句要怎样改才不会出错

tbl.Filter = name1 Like  & txt &  Or name2 Like  & txt &  Or name3 Like  & txt &   Or name4 Like  & txt


 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2020/2/21 18:13:00 [只看该作者]

试试这样：

Dim name  As  String= e.Form.Controls("TextBox1").Text
Dim name1 As String
For i As Integer = 29 To 32
    If  e.Form.Controls("TextBox" & i).Text <> ""
        name1 = name1 & e.Form.Controls("TextBox" & i).Text & "|"
    End If
Next
Dim txt  As  String = e.Form.Controls("TextBox14").Text
Dim tbl As Table = Tables(name)
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    name1 ="""" & name1.Replace("|"," Like  & txt &  Or ") & """"
    tbl.Filter = name1
End If
[此贴子已经被作者于2020/2/21 18:13:00编辑过]
 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1762 积分：4605 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2020/2/21 19:47:00 [只看该作者]

我是想直接调用文本值初始值， 这样做个模板，以后有类似的窗口就修改下几个文本值就直接调用
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106063 积分：539408 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/21 21:00:00 [只看该作者]

tbl.Filter = name1 & " Like "  & txt & " Or  " & name2 & " Like  " & txt &  .............

 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2020/2/21 21:14:00 [只看该作者]

细看2楼！

 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1762 积分：4605 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2020/2/21 21:49:00 [只看该作者]

多谢有点蓝和程版主

 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1762 积分：4605 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2020/2/21 21:51:00 [只看该作者]

还有一个问题：哪个章节讲用代码改变控制属性的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106063 积分：539408 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/21 22:39:00 [只看该作者]

改变什么控制属性？

 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1762 积分：4605 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2020/2/23 23:29:00 [只看该作者]

例如：改变文本、窗口，按键等等属性或事件

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

事件只能在窗口设计里编辑。控件属性看各个控件的帮助。建议把【窗口设计】这章内容完整先过一遍

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询