共3 条记录, 每页显示 10 条, 页签: [1]

标题：帮忙看下代码怎么写？

1楼

fsljhw 发表于：2011/10/21 14:45:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

请帮忙看一下附件中的窗口里的“查询'代码怎么写，”工序这一项我不知道怎么写，还有就是想问一下，怎么才能实现模糊查询，就是说我型号里输入的型号名称不用输全也能查到！谢谢！

2楼

狐狸爸爸 发表于：2011/10/21 16:18:00

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "型号= '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "封装= '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & .Value & " = True"

    End If
End With
If Filter > "" Then
    Tables("产品库").Filter = Filter
End If

3楼

狐狸爸爸 发表于：2011/10/21 16:23:00

至于模糊筛选，用like运算符，例如这个例子用的就是模糊查询：

http://www.foxtable.com/help/topics/1534.htm

共3 条记录, 每页显示 10 条, 页签: [1]