Foxtable(狐表)用户栏目专家坐堂 → 窗口只有一个表可以帅选的,现在增加了一个表(一个窗口2个表了),点击帅选出现了提示


  共有4771人关注过本帖树形打印复制链接

主题:窗口只有一个表可以帅选的,现在增加了一个表(一个窗口2个表了),点击帅选出现了提示

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/5/7 11:39:00 [显示全部帖子]

Dim flt As String
For Each c As Col In Tables("表A").Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If ctl.Gettype.name <> "Table" Then
            If e.Form.Controls(ctl.Name).Text > "" Then
                If ctl.Gettype.Name = "RadioButton" Then
                    If ctl.Name.Split("_")(0) = c.Name AndAlso e.Form.Controls(ctl.Name).Checked Then
                        flt + = c.Name & " = '" & e.Form.Controls(ctl.Name).Text & "' And "
                    End If
                Else
                    If ctl.Name.Contains("0") AndAlso ctl.Name.Split("_")(0) = c.Name Then
                        flt + = c.Name & " = '" & e.Form.Controls(ctl.Name).Text & "' And "
                    ElseIf ctl.Name.Contains("1") AndAlso ctl.Name.Split("_")(0) = c.Name Then
                        flt + = c.Name & " >= " & e.Form.Controls(ctl.Name).Text & " And "
                    ElseIf ctl.Name.Contains("2") AndAlso ctl.Name.Split("_")(0) = c.Name Then
                        flt + = c.Name & " <= " & e.Form.Controls(ctl.Name).Text & " And "
                    ElseIf ctl.Name = c.Name AndAlso c.Name = "字符模糊搜索" Then
                        flt + = c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%' And "
                    End If
                End If
            End If
        End If
    Next
Next
If flt > "" Then
    flt = flt.SubString(0,flt.Length - 5)
End If
Tables("表A").Filter = flt

 回到顶部