我想过滤datagrid的数据，用的是dataset,该怎么写啊。在线等

[zeallag1]

我在另一个窗口已经写好了select where 语句，然后给dataadapter的selectcomman.commandtext ，然后再用dataadapter.fill(dataset),可结果没有变化，好像datagrid里的数据只有在窗口的load事件才会变化。
可我另外一个窗口做的修改添加数据操作，通过重新dataadapter.fill(dataset)就可以显示了。
哪位详细介绍一个过程吧，

[zeallag1]

up

[Eddie005]

winform吗？
首先跟踪一下代码是否正确执行，
另外fill()后加上DataGrid1.Refresh()

[zeallag1]

代码已经正确执行了，又加了DataGrid1.Refresh()，还是不行，

[zeallag1]

自己再顶一下

[zhangyanlei]

你能不用DATASET过滤吗?

试试DATAGRID的SELECT方法

[hamadou]

贴代码出来！

[haoztao]

DataGrid.filter

[lxhdxlxh1]

'================================================================
'过程名称：ShowDataTable
'输入参数：SQL 是用来传入sql语句
' objTable 是传入DataTable
' Type 是传入是文本命令还是存储过程,(预留的还没有用)
' MsgStr 是传入再没有数据是提示的信息
'输出参数：无
'目 的：此过程填充DataTable
'原 作 者：刘晓航
'创建时间：2003.12.10
'修 改 者：刘晓航
'修改时间：2003.12.10
'================================================================
Public Sub ShowDataTable(ByVal SQL As String, ByVal objTable As DataTable, Optional ByVal Type As String = "1", Optional ByVal MsgStr As String = "A")
Dim objAd As New OleDbDataAdapter
If objconn.State = ConnectionState.Closed Then
objconn.Open()
End If

objAd.SelectCommand = New OleDbCommand
objAd.SelectCommand.Connection = objconn
Try
If Type = "1" Then '1表示SQL 文本命令
objAd.SelectCommand.CommandType = CommandType.Text
objAd.SelectCommand.CommandText = SQL
objAd.Fill(objTable)
Else '表示是存储过程

End If
If objTable.Rows.Count < 1 Then
If MsgStr = "A" Then
MsgBox("数据库中无相关记录!", , "系统提示")
ElseIf MsgStr = "False" Then
Exit Try
Else
MsgBox(MsgStr, , "系统提示")
End If
End If
Catch ex As Exception
MsgBox("数据库中无相关记录!", , "系统提示")
End Try
End Sub

[chenyuchengfeng]

up

[zeallag1]

up

[zeallag1]

'fm1_product为datagrid所在的窗体， ds_product为dataset, dg_product为datagrid
' da_product为dataAdapter
commandtext = fun_comtext()'取得查询语句，运行正常
fm1_product.da_product.SelectCommand.CommandText = fm1_product.da_product.SelectCommand.CommandText + commandtext
Try
fm1_product.da_product.Fill(fm1_product.ds_product, "product")
fm1_product.dg_product.DataSource = fm1_product.ds_product
fm1_product.dg_product.Refresh()
MsgBox(fm1_product.da_product.SelectCommand.CommandText)
Catch ex As Exception
MsgBox(ex.Message)
End Try
以上代码能正常运行，可就是datagrid里的数据没有任何变化。保证查询语句已经正确。
就算把代码直接放在 fm1_product窗口上也是一样。

[Ninputer]

不妨试验一下DataView，快很多倍哦

[hamadou]

将objAd.SelectCommand = New OleDbCommand
objAd.SelectCommand.Connection = objconn
换成：objAd.SelectCommand.Connection = objconn 试试！

[zeallag1]

非常感谢以上的各位。