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


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

主题：[求助]筛选
帅哥哟，离线，有人找我吗？
大红袍
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/7 11:29:00 [只看该作者]

Dim clmc As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim Filter As String
If clmc.Value IsNot Nothing Then
    Filter = "日期 like '*" & clmc.Value & "*'"
End If

Dim t As Table = Tables("股piao数据明细_table3")
t.Filter = Filter
Dim s As String
Dim id As String
Dim str As New List (Of String)

For i As Integer = 0 To t.Rows.Count - 1
    s = ""
    For j As Integer = 0 To t.Cols.Count - 1
        s + = t.Text(i,j)
    Next
    If str.Contains(s) = False Then
        str.Add(s)
        id + = t.Rows(i)("_Identify") & ","
    End If
Next
If id > "" Then
    t.Filter = "_Identify Not In (" & id.Trim(",") & ")"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/10/7 16:06:00 [只看该作者]

以下是引用大红袍在2015/10/7 11:29:00的发言：

Dim clmc As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim Filter As String
If clmc.Value IsNot Nothing Then
    Filter = "日期 like '*" & clmc.Value & "*'"
End If

Dim t As Table = Tables("股piao数据明细_table3")
t.Filter = Filter
Dim s As String
Dim id As String
Dim str As New List (Of String)

For i As Integer = 0 To t.Rows.Count - 1
    s = ""
    For j As Integer = 0 To t.Cols.Count - 1
        s + = t.Text(i,j)
    Next
    If str.Contains(s) = False Then
        str.Add(s)
        id + = t.Rows(i)("_Identify") & ","
    End If
Next
If id > "" Then
    t.Filter = "_Identify Not In (" & id.Trim(",") & ")"
End If


老师，点击组合框数据消失。



图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/7 16:12:00 [只看该作者]

完全不理解你想做什么，上传的例子也打不开，你把数据源发上来。或者做个内部表发上来
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/10/7 17:38:00 [只看该作者]

老师，压缩文件上传不了。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/7 17:39:00 [只看该作者]

用12楼的代码，执行以后，就会筛选了啊。

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/10/7 17:46:00 [只看该作者]

点击删除按钮能删除组合框选定的数据但要筛选下一个日期的数据时鼠标点击组合框数据就没有了。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/7 17:51:00 [只看该作者]

你删除按钮那里不会删除数据了吧？删除了数据，当然就查不到。

 

贴出你删除按钮的代码。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2015/10/7 18:00:00 [只看该作者]

Dim sj As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If sj.value="" Then
MessageBox.Show("请选择数据版本!","提示",MessageBoxButtons.OK)
Else

Dim v As Integer =Tables("股piao数据明细_table3").Rows.Count
Dim v1 As Integer =Tables("日期").Rows.Count
Dim h As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If v=0 Then
MessageBox.Show("数据不存在!","提示",MessageBoxButtons.OK)
Else
Dim h1 As Integer =Tables("股piao数据明细_table3").Rows.Count - 1
Tables("股piao数据明细_table3").Select(0, 0, h1, 5)
Syscmd.Row.Delete()
Tables("数据库更新").save
End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/7 18:07:00 [只看该作者]

代码没有问题，但删除后的数据，肯定不能再筛选。

 

做个简单的例子发上来测试
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1710 积分：11410 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2015/10/7 19:04:00 [只看该作者]

以下是引用江南小城在2015/10/7 18:00:00的发言：
Dim sj As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If sj.value="" Then
MessageBox.Show("请选择数据版本!","提示",MessageBoxButtons.OK)
Else

Dim v As Integer =Tables("股piao数据明细_table3").Rows.Count
Dim v1 As Integer =Tables("日期").Rows.Count
Dim h As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If v=0 Then
MessageBox.Show("数据不存在!","提示",MessageBoxButtons.OK)
Else
Dim h1 As Integer =Tables("股piao数据明细_table3").Rows.Count - 1
Tables("股piao数据明细_table3").Select(0, 0, h1, 5)
Syscmd.Row.Delete()
Tables("数据库更新").save
End If
End If




老师，上面代码筛选出的数据和组合框的数据是相反的。如文本框是2015-08-03可他筛选出的数据是2015-08-04的数据。
 回到顶部
总数 24 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询