Like 运算符中出错: 字符串模式“%50*8%”无效。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Like 运算符中出错: 字符串模式“%50*8%”无效。

共有2782人关注过本帖树形打印复制链接主题：Like 运算符中出错: 字符串模式“%50*8%”无效。

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：405 积分：3572 威望：0 精华：0 注册：2014/1/8 17:12:00

Like 运算符中出错: 字符串模式“%50*8%”无效。 发帖心情

Post By：2017/3/21 15:26:00 [只看该作者]

Like 运算符中出错: 字符串模式“%50*8%”无效。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/21 15:38:00 [只看该作者]

处理一下即可

Dim str As String = "50*8"

str = str.Replace("*", "[*]")

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：405 积分：3572 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2017/3/21 16:27:00 [只看该作者]

版主我是做的下拉窗口

在下拉窗口中筛选。

table中的设置 changeedit

If e.Col.DroppedDown Then '如果下拉窗口已经打开

Dim tbl As Table = Tables("材料名称下拉_Table1")

If e.Text = "" Then '如果内容为空

tbl.Filter = "" '显示所有客户

Else '否则根据输入内容进行模糊筛选

Dim txt As String = "'%" & e.Text & "%'"

tbl.Filter = "拼音首字母 Like " & txt &" "

End If

下拉窗口中 dropdwnopened 中

Dim txt As String = e.Form.DropDownBox.Text

Dim tbl As Table = Tables("材料名称下拉_Table1")

If txt = "" Then

tbl.Filter = ""

Else

tbl.Filter = "拼音首字母 Like " & txt &""

End If

e.Form.DropDownBox.Select()

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：405 积分：3572 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2017/3/21 16:38:00 [只看该作者]

还有带#号的，提示

表达式包含无效的日期厂量“#米”

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：405 积分：3572 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2017/3/21 16:45:00 [只看该作者]

明白了，已解决

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：405 积分：3572 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2017/3/21 16:57:00 [只看该作者]

版主，我在下拉窗口，的 DropDownclosed 中设置如下。

如果录入的字段没有，自动后台追加数据。

但是数据追加成功后，继续编辑，新追加的数据并不体现。

我加上了红色的部分，重新设定列下拉窗口，也不行。

关闭当前编辑窗口，重新打开。追加的数据在下拉窗口中有。

If Tables("部件下拉_table1").Rows.Count = 0 Then

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "s elect * from 部件名称"

Dim dt As DataTable = cmd.ExecuteReader(True)

nr = dt.AddNew

nr("部件名称") = e.Form.DropDownBox.Value

nr("拼音首字母") = GetPY(e.Form.DropDownBox.Value,True)

dt.save

End If

Tables("样品派工_table1").Cols("部件名称").DropForm = "部件下拉"

[此贴子已经被作者于2017/3/21 16:57:56编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/21 17:10:00 [只看该作者]

Dim fdr As DataRow = Tables("样品派工_table1").DataTable.Find("部件名称 = '" & e.Form.DropDownBox.Value & "'")
If fdr Is Nothing Then
    fdr = Tables("样品派工_table1").DataTable.AddNew
    fdr("部件名称") = e.Form.DropDownBox.Value
    fdr("拼音首字母") = GetPY(e.Form.DropDownBox.Value,True)
    fdr.save
End If