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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有4509人关注过本帖树形打印复制链接主题：[求助]

tungwun

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

加好友

发短信

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

[求助]

Post By：2015/1/20 22:12:00 [只看该作者]

这代码可用司机编号直接查询司机资料,请问如何加入查询(未付款)未付款列,最後10行

Dim Filter As String

With e.Form.Controls("TextBox7")

If .text IsNot Nothing Then

Filter = "司機編號 = '" & .text & "'"

End If

End With

If Filter > "" Then

Tables("車租更表").Filter = filter

End If

With Tables("車租更表")

.Position = .Rows.Count - 1

End With

有点甜

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

加好友

发短信

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

Post By：2015/1/20 22:26:00 [只看该作者]

这个意思？

Filter = "司機編號 = '" & .text & "' And 未付款 = true"

或者

Filter = "司機編號 = '" & .text & "' And 付款 = '未付款'"

tungwun

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

加好友

发短信

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

[求助]

Post By：2015/1/20 22:48:00 [只看该作者]

这代码可用Filter = "司機編號 = '" & .text & "' And 付款 = '未付款'"

请问如可加入只显示最前10行,未付款行?

有点甜

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

加好友

发短信

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

Post By：2015/1/20 23:58:00 [只看该作者]

Dim drs As List(Of DataRow) = DataTables("表A").Select("司機編號 = '" & e.Form.Controls("TextBox7").Text & "' And 付款 = '未付款'")
Dim idxs As String = ""
Dim count As Integer = 0
For Each dr As DataRow In drs
    If count >= 10 Then
        Exit For
    Else
        idxs &= dr("_Identify") & ","
    End If
Next

Tables("表A").Filter = "_Identify in (" & idxs.trim(",") & ")"

tungwun

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

加好友

发短信

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

[求助]

Post By：2015/1/21 14:13:00 [只看该作者]

代码有个错误

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

请问可否显示未付款前10行,现在是显示後10行?

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/1/21 14:15:00 [只看该作者]

Select 有排序函数 http://www.foxtable.com/help/topics/0400.htm

筛选前判断一下IDXS为空不执行

if idxs <> "" then

Tables("表A").Filter = "_Identify in (" & idxs.trim(",") & ")"

end if

tungwun

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

加好友

发短信

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

请问可否显示未付款前10行,现在是显示後10行? 发帖心情

Post By：2015/1/21 14:41:00 [只看该作者]

请问可否显示未付款前10行,现在是显示後10行?

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/1/21 14:44:00 [只看该作者]

Select 有排序函数 http://www.foxtable.com/help/topics/0400.htm

tungwun

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

加好友

发短信

等级：一尾狐帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00

[求助]

Post By：2015/1/21 14:53:00 [只看该作者]

请问如何加在这代码卡?

im drs As List(Of DataRow) = DataTables("表A").Select("司機編號 = '" & e.Form.Controls("TextBox7").Text & "' And 付款 = '未付款'")
Dim idxs As String = ""
Dim count As Integer = 0
For Each dr As DataRow In drs
    If count >= 10 Then
        Exit For
    Else
        idxs &= dr("_Identify") & ","
    End If
Next

Tables("表A").Filter = "_Identify in (" & idxs.trim(",") & ")"

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/1/21 14:55:00 [只看该作者]

请问你有看帮助吗?

DataTables("表A").Select("司機編號 = '" & e.Form.Controls("TextBox7").Text & "' And 付款 = '未付款'","你要排序的列 Desc")

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

总数 22 1 2 3 下一页

主题：[求助]