2012-03-16 2 views
0

데이터 필터링에 도움이 필요합니다. 나는 행을 필터링하고 텍스트 상자에 넣고 다른 텍스트 상자에 다른 행을 필터링하려고합니다.
ex.
ID --------- 날짜 -------- msg_num ------------ 메시지 < <
10001 - 01/01/2012 --- --- msg1 ------------- 어쩌구! 어쩌구!
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 - 2012년 1월 2일 ------ MSG3 ------------- eeeeeeeeeeeeeeeeee
10009-01/02/2012 ------ msg4 ------------- yyyyyyyyyyyyyyyyyy
10010 - 01/02/2012 ------ msg3 ----------- - zzzzzzzzzzzzzzzzzzzzVB.net에서 SQL 데이터베이스를 필터링하는 데 도움이 필요합니다 ... diffent filter


Textbox1의 : 516,

먼저 제가

출력 Textbox3하는 후 10004 필터링 날짜 01/01/2012
를 필터링 Textbox1의에 넣어
필터 10002이 TextBox2를에 넣어
및 10005를 필터링 할 .text = "모르겠다"
Textbox2.text = "도와주세요!"
Textbox3.text는 = "vvvvvvvvvvv"

* 메시지는 그것의 변하기 쉬워 해결되지 ...

+0

VBA 또는 VB 중 하나를 선택하고 사용중인 데이터베이스와 다른 하나를 포함하도록 태그를 수정하십시오. – Fionnuala

+0

MS Access, sql, VB.net vb6, vba입니까? –

+0

메신저 내 데이터베이스 및 시각적 스튜디오 2010 SQL 서버 관리 스튜디오를 사용하여 – rayskull

답변

0

당신의 데이터 소스가 (dt 이름) DataTable에있는 가정이이 작업을 완수해야합니다

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를 정렬하는 열이 있습니까?

관련 문제