项目事件

MainTableChanged

If MainTable.Name ="员工"  Then

    Forms("模糊查询").Open

End If

计划管理

表事件

员工_DataColChanged

Select Case  e.DataCol.Name

    Case "姓名","部门","职务"

        Dim n1 As Integer       

        Dim Lms,py,jps As  String

        Dim jps1 As New List(Of String)

        Lms ="姓名|部门|职务"       

        For Each py  In Lms.split("|")

            If  py =e.DataCol.Name Then

                Exit For

            End If

            n1+=1

        Next

        If e.DataRow.Isnull(e.DataCol.Name) Then

            py  ="@|#|$".split("|")(n1)

        Else

            py = GetPY(e.DataRow(e.DataCol.Name),True)

        End If

        jps1.AddRange(e.DataRow("简拼").split("|"))

        jps1.Insert(n1,py)

        jps1.RemoveAt(n1+1)

        For Each py  In jps1

            jps+=py & "|"

        Next

        e.DataRow("简拼") = jps.trim("|")      

End Select

员工_DataRowAdding

e.DataRow("简拼") = "@|#|$"

窗口表事件

窗口与控件事件

模糊查询_TextBox1_TextChanged

Dim py As String=e.Form.Controls("TextBox1").text

Tables("员工").Filter ="简拼 like \'%" & py & "%\'"

以上代码为 DON 大大 简拼模糊查询代码 现有几处不解求指教

1.我复制到我的表中。无法筛选，是否查询字段必须相连，不能间隔。

2.

e.DataRow("简拼") = "@|#|$" 何意，欲查询字段数与 符号"@|#|$"有何关联，如果四字段怎办

3. n1+=1， jps+=py & "|"  何意，狐表中有这种语法吗？

同谢，我又懂了点