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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → TextChanged 事件

共有2945人关注过本帖树形打印复制链接主题：TextChanged 事件

long086

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

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

TextChanged 事件 发帖心情

Post By：2020/8/21 21:47:00 [只看该作者]

TextChanged 事件代码如下

With DataTables("物料信息")
.LoadFilter = "客户 = '" & Tables("订单主表").Current("客户") & "'"
.load
End With
Dim va As WinForm.TextBox = e.Form.Controls("型号规格")
Tables("物料信息").Filter = "型号规格 like '*" & va.text & "*'"

现在有个问题，如果输入 * 号就报错，请问怎么用 Replace 替换掉。

long086

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

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

Post By：2020/8/21 22:00:00 [只看该作者]

With DataTables("物料信息")
    .LoadFilter = "客户 = '" & Tables("订单主表").Current("客户") & "'"
    .load
End With
Dim va As WinForm.TextBox = e.Form.Controls("型号规格")
If va.text IsNot Nothing Then
    va.text = va.text.Replace("*","[*]")
    Tables("物料信息").Filter = "型号规格 like '*" & va.text & "*'"

End If

这么写为什么不对，求指点