Question

vb中如何在文本框输入数据按确定之后就能将结果显示在datagird中

vb中如何在文本框输入数据按确定之后就能将结果显示在datagrid中
主要是每次都可重新输入文本框 而且都可显示在datagrid中
多谢啊

Answer 1

执行查询，然后将查询结果绑到datagrid就OK了

Rs.CursorLocation = adUseClient
Rs.Open "select 寝室号 from table1 where 寝室号 like '02-%'", Conn, adOpenStatic, adLockBatchOptimistic
set datagrid1.DataSource=Rs
有结果就会直接显示到datagrid1，没有结果的话就只显示字段

Answer 2

datagrid中的哪一行哪一列呢？

追问

就是比如我在文本框中输入寝室号 可以在datagrid中显示该寝室的所有信息 主要是我在load中开始是显示数据了 然后在文本框输入寝室号想显示出来就没有反应 不知道是怎么回事？

Answer 3

你用的vb2010吗？

追问

就是比如我在文本框中输入寝室号 可以在datagrid中显示该寝室的所有信息 主要是我在load中开始是显示数据了 然后在文本框输入寝室号想显示出来就没有反应 不知道是怎么回事？

追答

能不能看下你的代码？给你看下我以前写的一个datagridview过滤的代码
Dim num As Integer = DataGridView1.Rows.Count
For i = 0 To num - 1
DataGridView1.Rows(i).Visible = True
Next
Dim IsNull As Boolean = True
If num = 0 Then
MsgBox("筛选源数据为空，请读取数据后再次筛选！")
ElseIf TextBox5.Text = "" Then
MsgBox("筛选MEID数据为空，请填写数据后再次筛选！")
Else
For i = 0 To num - 1
If DataGridView1.Rows(i).Cells(3).Value TextBox5.Text Then
DataGridView1.Rows(i).Visible = False
End If
Next
For i = 0 To num - 1
If DataGridView1.Rows(i).Visible = True Then
IsNull = False
End If
Next
If IsNull = True Then
For i = 0 To num - 1
DataGridView1.Rows(i).Visible = True
Next
MsgBox("表中无ME ID=" + TextBox5.Text + "的数据")
End If
End If

追问

可以加QQ么？这个上面太说不清楚了 拜托拜托

Answer 4

具体点嘛，要看是用什么连接，好像要用refresh

追问

就是比如我在文本框中输入寝室号 可以在datagrid中显示该寝室的所有信息 主要是我在load中开始是显示数据了 然后在文本框输入寝室号想显示出来就没有反应 不知道是怎么回事？

追答

如果在load时能显示，那可能是不刷新或者筛选语句出错

追问

load是可以显示的 写到combo1_change就不行了 拜托大神帮我出出主意
Rs.Close
Rs.CursorLocation = adUseClient
用这个之后还是不行

追答

看不见代码，你可以单步运行看问题在哪里。发几行筛选数据的代码看看

追问

If Combo1.Text = " 2栋 " Then
Rs.Open "select 寝室号 from table1 where 寝室号 like '02-%'", Conn, adOpenStatic, adLockBatchOptimistic
combo1_change()中的 大神可以加扣扣不？