查询窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询窗口

共有2184人关注过本帖树形打印复制链接主题：查询窗口

雅痞123456

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

查询窗口

Post By：2018/1/25 9:46:00 [只看该作者]

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

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

员工离职的时候我想做一个窗口

下载信息 [文件大小：下载次数： ]
点击浏览该文件:丹东隆盛机加管理平台3.table

能把员工领取所有东西没归还的都调阅出来怎么写代码啊哪位老师帮我做做

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/25 9:53:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/1058.htm

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113810&authorid=0&page=0&star=2

雅痞123456

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：203 积分：1368 威望：0 精华：0 注册：2017/12/4 15:36:00

Post By：2018/1/25 11:29:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:丹东隆盛机加管理平台3.table

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

控件我设置了为什么还老是提醒我错误呢
图片点击可在新窗口打开查看

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/25 13:19:00 [只看该作者]

Dim nms() As String = {"领取人1"}
Dim sps() As String = {"'"}
Dim bjf() As String = {"="}
Dim fds() As String = {"领取人"}
Dim Filter As String
For i As Integer = 0 To nms.Length - 1
    If e.Form.Controls(nms(i)).value IsNot Nothing Then
        If filter > "" Then
            filter = filter & "and "
        End If
        filter =filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)
    End If
Next
If e.Form.Controls("已还").checked = True
    If filter > "" Then
        filter = filter & " and "
    End If
    filter=filter & " 已还=true "
End If
If e.Form.Controls("未还").checked = True
    If filter > "" Then
        filter = filter & " and "
    End If
    filter=filter & " (已还 =false or 已还 is null)"
End If

Tables("刀具出入库表").filter = filter

下一主题 >> << 上一主题

主题：查询窗口