以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]筛选 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75201) |
||||
-- 作者:江南小镇 -- 发布时间:2015/9/30 9:54: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 Tables("股票数据明细_table3").Filter = Filter Dim s As String Dim id As String Dim str As New List (Of String) Dim t As Table = Tables("日期") 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)("ID") & "," End If Next If id > "" Then t.DataTable.DeleteFor("ID Not In (" & id.Trim(",") & ")") End If e.Form.Controls("Table3").Select
|
||||
-- 作者:大红袍 -- 发布时间:2015/9/30 9:56:00 -- 1、上传例子;
2、说明要做什么。 |
||||
-- 作者:江南小镇 -- 发布时间:2015/9/30 10:12:00 -- 此主题相关图片如下:图像 1.png |
||||
-- 作者:大红袍 -- 发布时间:2015/9/30 10:18:00 -- Dim clmc As WinForm.ComboBox = e.Form.Controls("ComboBox1") Dim t As Table = Tables("股票数据明细_table3") For i As Integer = 0 To t.Rows.Count - 1
|
||||
-- 作者:江南小镇 -- 发布时间:2015/9/30 10:59:00 -- 老师,组合框不显示 |
||||
-- 作者:大红袍 -- 发布时间:2015/9/30 11:05:00 -- Dim clmc As WinForm.ComboBox = e.Form.Controls("ComboBox1") clmc.ComboList = DataTables("表A").GetComboListString("日期") |
||||
-- 作者:江南小镇 -- 发布时间:2015/10/2 10:43:00 -- 老师,我文件上传不了 |
||||
-- 作者:江南小镇 -- 发布时间:2015/10/2 12:18:00 --
|
||||
-- 作者:大红袍 -- 发布时间:2015/10/4 11:37:00 -- 看6楼 |
||||
-- 作者:江南小城 -- 发布时间:2015/10/5 14:28:00 -- 以下是引用大红袍在2015/9/30 11:05:00的发言:
Dim clmc As WinForm.ComboBox = e.Form.Controls("ComboBox1") clmc.ComboList = DataTables("表A").GetComboListString("日期") 不能筛选数据在窗口显示 |