新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Private Sub Form_Load() Call Allfilter End Sub Sub Allfilter() Dim strWh As String strWh = "True" If IsNull(Me.姓氏.Value) = False Then strWh = strWh & " and 姓名 like '" & Me.姓氏.Value & "*'" End If If IsNull(Me.性别.Value) = False Then strWh = strWh & " and 性别= '" & Me.性别.Value & "'" End If Me.子窗体.Form.Filter = strWh Me.子窗体.Form.FilterOn = True End Sub 返回 保存