2012-03-16 151 views
0

我需要幫助來篩選數據。我想過濾行,並把它放在一個文本框中,並在另一個文本框中過濾另一行vb。
ex。
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 ------------- eeeeeeeeeeeeeeeeeeee
10009 - 01/02/2012 ------ msg4 ------------- yyyyyyyyyyyyyyyyyy
10010 - 01/02/2012 ------ msg3 ----------- - zzzzzzzzzzzzzzzzzz需要幫助篩選VB.net中的SQL數據庫... diffent filter

首先我要過濾日期01/01/2012
然後過濾10004,並把它在TextBox1中,
過濾器10002把它在TextBox2中,
和過濾器10005至Textbox3

輸出:
Textbox1的.text =「我不知道」
Textbox2.text =「請幫助!」
Textbox3.text = 「vvvvvvvvvvv」

*消息它不是修復它的多變......

+0

請選擇VBA或VB,然後更正您的標籤以包含您正在使用的數據庫和其中一個或另一個。 – Fionnuala 2012-03-16 13:51:35

+0

MS Access,sql,VB.net vb6,vba? – 2012-03-16 14:02:37

+0

即時通訊使用SQL Server管理工作室爲我的數據庫和VISUAL STUDIO 2010 – rayskull 2012-03-16 16:59:48

回答

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 

除此之外,您選擇IDTextBox似乎相當隨意。你爲什麼需要特定的訂單?另外,數據源中是否有其他列會以這種方式訂購ID?