我需要帮助过滤数据。我想过滤行并将其放在文本框中,并在另一个文本框vb中过滤另一行。
前。
ID ---------日期-------- msg_num ------------消息<<
10001 - 01/01/2012 ------ msg1 ------------- Blah!胡说!
10002 - 01/01/2012 ------ msg2 -------------请帮助!
10003 - 01/01/2012 ------ msg3 -------------开心快乐
10004 - 01/01/2012 ------ msg4 -------------我不知道
10005 - 01/01/2012 ------ msg3 -------------vvvvvvvvvvv
10006 - 01/02/2012 ------ msg1 ------------- dasdasdad
10007 - 01/02/2012 ------ msg2 ------------- qqqqqqqqqqq
10008 - 01/02/2012 ------ msg3 -------------eeeeeeeeeeeeeeeeeee
10009 - 01/02/2012 ------ msg4 ------------- yyyyyyyyyyyyyyyyyyy
10010 - 01/02/2012 ------ msg3 ------------- zzzzzzzzzzzzzzzzzzzz
首先我要过滤日期01/01/2012
然后过滤10004并将其放入Textbox1,
过滤器10002把它放在Textbox2中,
过滤10005到Textbox3
输出:
Textbox1.text =“我不知道”
Textbox2.text =“请帮忙!”
Textbox3.text =“vvvvvvvvvvv”
*消息不能解决它的变化......
答案 0 :(得分:0)
假设您的数据源位于DataTable(名为dt
)中,这应该可以完成工作:
Dim dr As DataRow
dt.DefaultView.RowFilter = "Date = '01/01/2012'"
For Each dr In dt.DefaultView.ToTable.Rows
Select Case dr("ID")
Case Is = 10004
TextBox1.Text = dr("Message")
Case Is = 10002
TextBox2.Text = dr("Message")
Case Is = 10005
TextBox3.Text = dr("Message")
End Select
Next
除此之外,您对ID
到TextBox
的选择似乎相当武断。为什么需要特定订单?此外,数据源中是否还有其他列以这种方式对ID进行排序?