DataGrid Bind to DataSet, then Bind to DaTaview, GOT ERROR...PLS HELP

[A_PK]

I have problem databinding the DataGrid with DataView/DataSet after the
filter...
I create the following proceudre in order for user to filter as many as they
want, but the following code is only allow user to filter the first time,
when they tried the second time, the speficied cast error message will
prompt one....

I create a mydataset1 first, and the mydataset1 data source was getting from
DataGrid.DataSo urce.

then I create a DataView in order for me to filter....
after I enter the criteria, then will filter successfully the first time,
but not second time.

the I bind the DataGrid to DataView together......

The first filter is always successfully, I just can not filter the same data
second time...
I suspect it the DataView and DataSet problem, because at first I bind
datagrid1 and get the data source of datagrid1 form Dataset, but at the end
I bing the Datagird to the Dataview also.....so there are some error....i
think....

I just have no idea how to bind the Datagrid with Dataview, and allow user
to filter as many time as they want.....
could someone pls guide me.... here are the CODE
Try
Dim mydataset1 As New DataSet
mydataset1 = DataGrid1.DataS ource

Dim mydataview As New
DataView(mydata set1.Tables(Glo bal.strTblName) )
Dim strInput

strInput = InputBox("test" )
mydataview.RowF ilter = "Custno = " & strInput & ""

DataGrid1.Datas ource= mydataview
' DataGrid1.DataS ource = mydataset1
' DataGrid1.DataM ember = GlobalDBExplore r.strTblName

Catch err As InvalidCastExce ption
MsgBox(err.Mess age)
Catch err As Exception

MsgBox(err.Mess age)
End Try

[Cor Ligthert]

APK,

When you want to set another datasource to a datagrid than you first have to
do.

datagrid.dataso urce = nothing

I hope this helps,

Cor

[Cor Ligthert]

APK

This is a complet new question and reading in the ADONET newsgroup I now
understand what you are after and have even for that a sample. However I
think that it becomes to much confusing for people who reads those threads
in future when the questions are placed in more newsgroups and they don't
see the relation between question and answers, so I stop with answering in
this thread.

Cor

[A_PK]

I apologize for doing that....

It is because that after I post my query, then I only realized that there is
still one adonet newgroup which might be related to my topic, so I post my
question to that newsgroup...

I dun mean do that that....

If you do know the solution, pls kindly let me know.

THank you very much
"Cor Ligthert" <no************ @planet.nl> wrote in message
news:uO******** ********@TK2MSF TNGP10.phx.gbl. ..

APK

This is a complet new question and reading in the ADONET newsgroup I now
understand what you are after and have even for that a sample. However I
think that it becomes to much confusing for people who reads those threads
in future when the questions are placed in more newsgroups and they don't
see the relation between question and answers, so I stop with answering in
this thread.

Cor

[Arun]

Hi APK,

Here is a sample code snippet, Thanks Cor for the code and I have
changed a little to work for your requirement,

Try this code.

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Try
Dim dt As New DataTable("APK" )
dt.Columns.Add( "A")
dt.LoadDataRow( New Object() {"1"}, True)
dt.LoadDataRow( New Object() {"2"}, True)
dt.LoadDataRow( New Object() {"3"}, True)
ds.Tables.Add(d t)
DataGrid1.DataS ource = dt
Catch err As InvalidCastExce ption
MsgBox(err.Mess age)
Catch err As Exception
MsgBox(err.Mess age)
End Try
End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim ds1 As New DataSet
Dim dp As New DataTable
Dim i As Int32
dp = ds.Tables("APK" ).Clone
Dim dt() As DataRow = ds.Tables("APK" ).Select("A = '2'")
'Use ImportRow method to copy from Products table to its clone.
For i = 0 To dt.Length - 1
dp.ImportRow(dt (i))
Next
ds1.Tables.Add( dp)
DataGrid1.DataS ource = dp
End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click
Dim i As Int32
Dim dt1 As New DataTable
dt1 = CType(DataGrid1 .DataSource, DataTable)
dt1.DataSet.Wri teXml("\Demo.xm l")
End Sub

Hope this helps,

Cheers,
Arun.
www.innasite.com

[Cor Ligthert]

Arun,

I readed in the ADONET newsgroup that this is probably what APX is needed.

However as you did, is this kind of answering confusing on questions in more
newsgroups.

(Changed a lot in this message so watch typos)

\\\
Dim dsNew as new dataset
Dim dv As New DataView(Origin alDataset.Table s("whatever") )
dv.RowFilter = "A = '1"
Dim dtnew As DataTable = OriginalDataset .Tables("whatev er").Clone
For Each dvr As DataRowView In dv
dtnew.ImportRow (dvr.Row)
Next
dt.Clear()
dsNew.Tables.Ad d(dtnew)
dsNew.WriteXML( "C:\mydataset.x ml")
///

:-)

Cor

[A_PK]

Hi Arun,

thank for the code...

another question...just wonder if there is a way to bind the datagrid back
to dataset instead of dataview and datatable ?

because if I do filter, then have to bind my datagrid to datatable or
dataview,
if I dun do filter, then my datagrid will bind to dataset....

Without Filter....follo wing is my WriteXML code

Dim mydataset As New DataSet
mydataset = DataGrid1.DataS ource
mydataset.Write XmlSchema(Appli cation.StartupP ath &
"\DBexplorer\De mo.xsd")
mydataset.Write Xml(Application .StartupPath &
"\DBexplorer\De mo.xml")

WithFilter...fo llowing is my WriteXML code....

Dim dt1 As New DataTable
dt1 = CType(DataGrid1 .DataSource, DataTable)
dt1.DataSet.Wri teXml(Applicati on.StartupPath &
"\DBexplorer\\D emo.xml")
so if I have done filter, then the code gave u will be working,
if i have not done filter, then the code u gave me will not be wokring....
so they all get datagrid.dataso urce from different source. one from Dataset,
one from either Dataview and DataTable...

how could I make all consistent ?

"Arun" <ar************ ***@gmail.com> wrote in message
news:11******** **************@ z14g2000cwz.goo glegroups.com.. .

Hi APK,

Here is a sample code snippet, Thanks Cor for the code and I have
changed a little to work for your requirement,

Try this code.

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Try
Dim dt As New DataTable("APK" )
dt.Columns.Add( "A")
dt.LoadDataRow( New Object() {"1"}, True)
dt.LoadDataRow( New Object() {"2"}, True)
dt.LoadDataRow( New Object() {"3"}, True)
ds.Tables.Add(d t)
DataGrid1.DataS ource = dt
Catch err As InvalidCastExce ption
MsgBox(err.Mess age)
Catch err As Exception
MsgBox(err.Mess age)
End Try
End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
Dim ds1 As New DataSet
Dim dp As New DataTable
Dim i As Int32
dp = ds.Tables("APK" ).Clone
Dim dt() As DataRow = ds.Tables("APK" ).Select("A = '2'")
'Use ImportRow method to copy from Products table to its clone.
For i = 0 To dt.Length - 1
dp.ImportRow(dt (i))
Next
ds1.Tables.Add( dp)
DataGrid1.DataS ource = dp
End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click
Dim i As Int32
Dim dt1 As New DataTable
dt1 = CType(DataGrid1 .DataSource, DataTable)
dt1.DataSet.Wri teXml("\Demo.xm l")
End Sub

Hope this helps,

Cheers,
Arun.
www.innasite.com

[Arun]

APK,

With or without filter

Dim dt1 As New DataTable
dt1 = CType(DataGrid1 .DataSource, DataTable)
dt1.DataSet.Wri teXml (Application.St artupPath &
"\DBexplorer\\D emo.xml")

This should have to work, Have you tried it!!!

Cheers,
Arun.

[A_PK]

Well,,, thank for Arun and Cor...

"Arun" <ar************ ***@gmail.com> wrote in message
news:11******** *************@l 41g2000cwc.goog legroups.com...

APK,

With or without filter

Dim dt1 As New DataTable
dt1 = CType(DataGrid1 .DataSource, DataTable)
dt1.DataSet.Wri teXml (Application.St artupPath &
"\DBexplorer\\D emo.xml")

This should have to work, Have you tried it!!!

Cheers,
Arun.