All pastes #171694 Raw Edit

Gautam

public text v1 · immutable
·published 2006-09-15 15:56 UTC
rendered paste body
                objMemoryStream.Seek(0, SeekOrigin.Begin)
                Dim obj As Object = New BinaryFormatter().Deserialize(objMemoryStream)
                objMemoryStream.Close()

                If sRowFilter <> "" Then
                    Dim ds As DataSet
                    Dim dv As DataView

                    ds = CType(obj, DataSet)

                    dv = ds.Tables(sTable).DefaultView

                    dv.RowFilter = sRowFilter

                    Return CType(dv, Object)
                Else
                    Return obj
                End If