Foxtable(狐表)用户栏目专家坐堂 → 字符过滤


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

主题:字符过滤

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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
字符过滤  发帖心情 Post By:2020/4/20 0:05:00 [只看该作者]

我想实现判断 窗口中 TextBox10 字段值,如果字段前两位包含“新疆” 和“西藏” 字段,则提示消息并停止运行;
请问应如何修改下面代码?
Dim shdz As WinForm.TextBox = e.Form.Controls("TextBox10")
If shdz.text = "新疆" OR note.text = "西藏"  Then 
MessageBox.show("以上地区不能发货","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If


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


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

If shdz.text = "新疆" OR shdz.text = "西藏"  Then 

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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2020/4/20 9:10:00 [只看该作者]

If shdz.text = "新疆" OR shdz.text = "西藏"  Then 
老师这样是等于这两个地区,但是实际上这两字段是以要过滤出
前两位以“新疆” 和“西藏” 开头的数据。实际地区名称可能写着(西藏自治区拉萨市,西藏自治区林芝县,新疆乌鲁木齐市
类似于这样的要求(类似于SQL的这种:left(字段,2) = ‘新线’ 的效果)

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


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

If shdz.text like "新疆*" ORelse shdz.text like  "西藏*"  Then 
或者
If shdz.text.StartsWith("新疆") ORelse 


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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2020/4/20 9:54:00 [只看该作者]

谢谢老师,以为这个里面不能用LIKE这类代码图片点击可在新窗口打开查看

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


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

like有两种用法,注意这两种用法不能混用


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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2020/4/20 10:29:00 [只看该作者]

If shdz.text like "新疆*" ORelse shdz.text like  "西藏*"  Then 
老师,我发现我的需求,是要以不包含这两个地区为条件,后面的代码才符合要求,当前代码是指包含这两个字符开头的,

即:我想改为 shdz.text 字段不以"新疆" 和 "西藏" 字段开头的数据条件,(类似于SQL  left(字段,2) <> '新疆'  and left(字段,2) <> '西藏')的效果,
请问老师,这个该 怎么实现。


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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2020/4/20 10:34:00 [只看该作者]

谢谢老师,
[姓名] Not Like '李%' 看到这个说明,估计应该可以,

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


加好友 发短信
等级:四尾狐 帖子:927 积分:6676 威望:0 精华:0 注册:2013/8/10 18:33:00
  发帖心情 Post By:2020/4/20 10:47:00 [只看该作者]

If note.text Not Like "新疆*" And  note.text not Like  "西藏*"  Then 
Dim tx2 As Table = e.form.Controls("Table2").Table
If tx2.Compute("Sum(amount)") = 0 Then 
  msgbox("合计运费金额不能为0")
Return
End If
End If

老师,请问为何报错,提示语名应为结束语句。

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


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

应该不是这里的原因,调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm

 回到顶部