主题：[求助]错误提示

今天有电脑打开出现这个错误提示，请问一下这是什么原因
此主题相关图片如下：错误提示.png

有个别电脑不行

试试直接执行 foxtable.exe 而不是执行 你程序名.exe

 

然后，修复一下wmi

 

 

试了，还是一样的，出现这个错误

wmi修复以后，重启电脑，还是有问题？

试试，是否这个问题

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=95878&skin=0

 

此主题相关图片如下：提示.png

这是一个下拉窗口，为什么有些记录就可以，有些记录会出错

 

DropDownClosed

下拉窗口关闭后执行。
可以在这里对下拉窗口进行设置。

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("下拉物料_Table1")
    If tbl.Current IsNot Nothing Then
        If Tables("DD生产订单表.DD生产订单明细表").Current IsNot Nothing
            Tables("DD生产订单表.DD生产订单明细表").Current("报价ID") = tbl.Current("报价ID")
            e.Form.DropDownBox.Value = tbl.Current("物料名称")
        End If
    End If
    e.Form.DropDownBox.CloseDropDown()
End If

e.Form.DropDownBox.Value = tbl.Current("物料名称")
就是这句代码就会出错，有些物料就可以，有些又不行

不是这个事件的问题。你设置filter的代码要改一下

 

Tables("").filter = "第一列 like '" & 变量 & "'"

 

要改成

 

Tables("").filter = "第一列 like '" & 变量.Replace("*", "[*]") & "'"

DropDownOpened

展开下拉窗口后执行。
可以在这里对下拉窗口进行设置。

Dim txt As String = e.Form.DropDownBox.Text
Dim t As Table = Tables("下拉物料_Table1")
If txt = "" Then
    t.Filter = ""
Else
    Dim f As String  = "'%" & txt & "%'"
    t.Filter = "物料名称 Like " & f & " Or 旧编码 Like " & f & "Or 色号 Like " & f &" Or 工艺代码 Like " & f &" Or 客户 Like " & f &" Or 客户名称 Like " & f &" Or 系列名称 Like " & f
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框