老师好,我下面抄来的代码为什么筛选不出数据并赋值给组合框。
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("股piao数据明细_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