需要帮助在 VB.net 中过滤 SQL 数据库...不同的过滤器答案

【问题标题】：Need Help filtering SQLdatabase in VB.net...diffent filter需要帮助在 VB.net 中过滤 SQL 数据库...不同的过滤器
【发布时间】：2012-03-16 11:11:54
【问题描述】：

我在过滤数据方面需要帮助。我想过滤行并将其放入文本框中并在另一个文本框 vb 中过滤另一行。
例如。
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 -- 01/02/2012 ------ msg3 ------------- eeeeeeeeeeeeeeeeee
10009 -- 01/02/2012 ------ msg4 ------------- yyyyyyyyyyyyyyyyyy
10010 -- 01/02/2012 ------ msg3 ------------- zzzzzzzzzzzzzzzzzz

首先我想过滤日期 01/01/2012
然后过滤10004并放入Textbox1，
filter 10002 放到Textbox2中，
并将 10005 过滤到 Textbox3

输出：
Textbox1.text = "我不知道"
Textbox2.text = "请帮忙！"
Textbox3.text = "vvvvvvvvvv"

*消息它不能修复它的可变...

【问题讨论】：

请选择 VBA 或 VB。然后更正您的标签以包含您正在使用的数据库和其中一个。
是MS access、sql、VB.net vb6、vba吗？
我为我的数据库和 VISUAL STUDIO 2010 使用 sql server management studio

标签： sql-server vb.net

【解决方案1】：

假设您的数据源位于 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 进行排序？

【讨论】：