DataGrid EndCurrentEdit Problem persists...

[Jan Nielsen]

Hi
I asked this question some weeks ago, but have found no soluion yet, so I
try again

I have a parent detail relationship between two tables.
The detail records are shown in a datagrid (GridRemarks)
It is databound like this

GridRemarks.Dat asource = mainDatasource ' a shortcut to
myDataSet.tblPe rsons.DefaultVi ew
GridRemarks.Dat aMember ="tblPersons_tb lRemarks" ' The name of the parent
detail relation
And it works fine

THE PROBLEM: But before I save I would like to end the current edits.
So I tried like this
Dim bmRemarks As BindingManagerB ase = BindingContext( mainDataSource,
"tblPersons_tbl Remarks")
bmRemarks.EndCu rrentEdit()

And like this
Me.BindingConte xt(GridRemarks. DataSource,
GridRemarks.Dat aMember).EndCur rentEdit()

But to no avail.
I do not get any errors. It just does not end the current edit.
And my Dataset.HasChan ges test is (of course) negative

Now I have tried to write code like this:
Dim myDataGridCell As DataGridCell = Me.GridRemarks. CurrentCell
Dim bm As BindingManagerB ase = _
BindingContext( Me.GridRemarks. DataSource, Me.GridRemarks. DataMember)
Dim drv As DataRowView = CType(bm.Curren t, DataRowView)
Debug.WriteLine ("Værdi: " & drv(myDataGridC ell.ColumnNumbe r))
Debug.WriteLine ("Row: " & myDataGridCell. RowNumber)

And it works fine and writes the correct values to the debug window

So I guess the bindingmanagerb ase is correct. It just will not end the
currentedit

Any suggestions?

TIA

Jan

[Ken Tucker [MVP]]

Hi,

Take a look at the datagrids endedit method.
http://msdn.microsoft.com/library/de...dedittopic.asp

Ken
----------------------
"Jan Nielsen" <Re************ **@tiscali.dk> wrote in message
news:uU******** ******@TK2MSFTN GP15.phx.gbl...
Hi
I asked this question some weeks ago, but have found no soluion yet, so I
try again

I have a parent detail relationship between two tables.
The detail records are shown in a datagrid (GridRemarks)
It is databound like this

GridRemarks.Dat asource = mainDatasource ' a shortcut to
myDataSet.tblPe rsons.DefaultVi ew
GridRemarks.Dat aMember ="tblPersons_tb lRemarks" ' The name of the parent
detail relation
And it works fine

THE PROBLEM: But before I save I would like to end the current edits.
So I tried like this
Dim bmRemarks As BindingManagerB ase = BindingContext( mainDataSource,
"tblPersons_tbl Remarks")
bmRemarks.EndCu rrentEdit()

And like this
Me.BindingConte xt(GridRemarks. DataSource,
GridRemarks.Dat aMember).EndCur rentEdit()

But to no avail.
I do not get any errors. It just does not end the current edit.
And my Dataset.HasChan ges test is (of course) negative

Now I have tried to write code like this:
Dim myDataGridCell As DataGridCell = Me.GridRemarks. CurrentCell
Dim bm As BindingManagerB ase = _
BindingContext( Me.GridRemarks. DataSource, Me.GridRemarks. DataMember)
Dim drv As DataRowView = CType(bm.Curren t, DataRowView)
Debug.WriteLine ("Værdi: " & drv(myDataGridC ell.ColumnNumbe r))
Debug.WriteLine ("Row: " & myDataGridCell. RowNumber)

And it works fine and writes the correct values to the debug window

So I guess the bindingmanagerb ase is correct. It just will not end the
currentedit

Any suggestions?

TIA

Jan

[Jan Nielsen]

Hi Ken
Thanks for answering.
I used
GridRemarks.End Edit(Bemaerknin gColHeader, Bemaerkninger.C urrentRowIndex,
False)
If dataset.HasChan ges = False Then
MsgBox("no changes")
Exit Sub
End If

Strangely enough it does end the edit but the dataset.haschan ges() returns
false.
I have to click somewhere else to make the dataset register the change
So I inserted a txtSomething.Fo cus(). I can live with this hack though not
completely satisfying.

Best regards

Jan
"Ken Tucker [MVP]" <vb***@bellsout h.net> skrev i en meddelelse
news:%2******** *******@TK2MSFT NGP14.phx.gbl.. .

Hi,

Take a look at the datagrids endedit method.
http://msdn.microsoft.com/library/de...dedittopic.asp

Ken
----------------------
"Jan Nielsen" <Re************ **@tiscali.dk> wrote in message
news:uU******** ******@TK2MSFTN GP15.phx.gbl...
Hi
I asked this question some weeks ago, but have found no soluion yet, so I
try again

I have a parent detail relationship between two tables.
The detail records are shown in a datagrid (GridRemarks)
It is databound like this

GridRemarks.Dat asource = mainDatasource ' a shortcut to
myDataSet.tblPe rsons.DefaultVi ew
GridRemarks.Dat aMember ="tblPersons_tb lRemarks" ' The name of the parent
detail relation
And it works fine

THE PROBLEM: But before I save I would like to end the current edits.
So I tried like this
Dim bmRemarks As BindingManagerB ase = BindingContext( mainDataSource,
"tblPersons_tbl Remarks")
bmRemarks.EndCu rrentEdit()

And like this
Me.BindingConte xt(GridRemarks. DataSource,
GridRemarks.Dat aMember).EndCur rentEdit()

But to no avail.
I do not get any errors. It just does not end the current edit.
And my Dataset.HasChan ges test is (of course) negative

Now I have tried to write code like this:
Dim myDataGridCell As DataGridCell = Me.GridRemarks. CurrentCell
Dim bm As BindingManagerB ase = _
BindingContext( Me.GridRemarks. DataSource, Me.GridRemarks. DataMember)
Dim drv As DataRowView = CType(bm.Curren t, DataRowView)
Debug.WriteLine ("Værdi: " & drv(myDataGridC ell.ColumnNumbe r))
Debug.WriteLine ("Row: " & myDataGridCell. RowNumber)

And it works fine and writes the correct values to the debug window

So I guess the bindingmanagerb ase is correct. It just will not end the
currentedit

Any suggestions?

TIA

Jan

[Cor Ligthert]

Jan,

I thought that your question was another one, that i can not resolve.
(Databinding to a column of a related table).

However I think that this one will go.
DirectCast(Bind ingContext(ds, "ParentTableNam e.RelationName" ),
CurrencyManager ).EndCurrentEdi t()

I hope this helps,

Cor

[Jan Nielsen]

Hi Cor
Thanks for answering (again again)
Unfortunately this does not help.
I'll stick with Kens solution.
I have tried a lot of possible combinations of
bindingcontext. EndCurrentEdit( ) and none of them worked.
It seems to me that if you use EndCurrentEdit on a datagrids bindingcontext,
it does not end the current edit in the datagrid.
It looks to me like you have to use datagrid.EndEdi t()

Best regards

Jan

"Cor Ligthert" <no************ @planet.nl> skrev i en meddelelse
news:eC******** ******@TK2MSFTN GP15.phx.gbl...

Jan,

I thought that your question was another one, that i can not resolve.
(Databinding to a column of a related table).

However I think that this one will go.
DirectCast(Bind ingContext(ds, "ParentTableNam e.RelationName" ),
CurrencyManager ).EndCurrentEdi t()

I hope this helps,

Cor

[Jan Nielsen]

I tried this in another project where the datagrid was bound direct to a
single table and there it worked fine!
I tested a bit further and found out that it works if I push _a button_ with
the
BindingContext( ds, "ParentTableNam e.RelationName" ),
CurrencyManager ).EndCurrentEdi t()
code
But it does not work if it is called from my _toolbarbutton_ . Maybe because
the toolbarbutton does not remove focus from the datagrid?
Jan

"Cor Ligthert" <no************ @planet.nl> skrev i en meddelelse
news:eC******** ******@TK2MSFTN GP15.phx.gbl...

Jan,

I thought that your question was another one, that i can not resolve.
(Databinding to a column of a related table).

However I think that this one will go.
DirectCast(Bind ingContext(ds, "ParentTableNam e.RelationName" ),
CurrencyManager ).EndCurrentEdi t()

I hope this helps,

Cor

[Cor Ligthert]

Jan,

I tested this and in my opinion it did work, here is the test, it needs
three datagrids and a button on a form.
\\\
Private Sub Form1_Load(ByVa l sender As Object, ByVal e _
As System.EventArg s) Handles MyBase.Load
CreateDs(ds)
DataGrid1.DataS ource = ds
DataGrid2.DataS ource = ds
DataGrid3.DataS ource = ds.Tables("Pers ons")
DataGrid1.DataM ember = "Countries"
DataGrid2.DataM ember = "Countries.RPer sons"
End Sub
Private Sub Button1_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button1.Click
DirectCast(Bind ingContext(ds, "Countries.RPer sons"),
CurrencyManager ).EndCurrentEdi t()
End Sub

'To have a testable class
Private Sub CreateDs(ByVal ds As DataSet)
Dim dtName As New DataTable("Pers ons")
Dim dcName As New DataColumn("Nam e")
Dim dcCountry As New DataColumn("Cou ntry")
Dim dcState As New DataColumn("Sta te")
dtName.Columns. Add(dcName)
dtName.Columns. Add(dcCountry)
dtName.Columns. Add(dcState)
ds.Tables.Add(d tName)
For i As Integer = 0 To 5
Dim dr As DataRow = dtName.NewRow
dtName.Rows.Add (dr)
Next
dtName.Rows(0). ItemArray = New Object() _
{"Herfried K. Wagner", "EU", "Austria"}
dtName.Rows(1). ItemArray = New Object() _
{"Ken Tucker", "US", "Florida"}
dtName.Rows(2). ItemArray = New Object() _
{"CJ Taylor", "US", "Illinois"}
dtName.Rows(3). ItemArray = New Object() _
{"Terry Burns", "EU", "UK"}
dtName.Rows(4). ItemArray = New Object() _
{"Jay B Harlow", "US", "New York"}
dtName.Rows(5). ItemArray = New Object() _
{"Cor Ligthert", "EU", "Holland"}
Dim dtCountry As New DataTable("Coun tries")
dcCountry = New DataColumn("Cou ntry")
dtCountry.Colum ns.Add(dcCountr y)
ds.Tables.Add(d tCountry)
For i As Integer = 0 To 1
Dim dr As DataRow = dtCountry.NewRo w
dtCountry.Rows. Add(dr)
Next
dtCountry.Rows( 0)(0) = "EU"
dtCountry.Rows( 1)(0) = "US"
Dim drlStates As New DataRelation _
("RPersons", ds.Tables("Coun tries").Columns ("Country"), _
ds.Tables("Pers ons").Columns(" Country"))
ds.Relations.Ad d(drlStates)
End Sub
////

I hope this helps,

Cor
"Jan Nielsen" <Re************ **@tiscali.dk>

Hi Cor
Thanks for answering (again again)
Unfortunately this does not help.
I'll stick with Kens solution.
I have tried a lot of possible combinations of
bindingcontext. EndCurrentEdit( ) and none of them worked.
It seems to me that if you use EndCurrentEdit on a datagrids
bindingcontext, it does not end the current edit in the datagrid.
It looks to me like you have to use datagrid.EndEdi t()

Best regards

Jan

"Cor Ligthert" <no************ @planet.nl> skrev i en meddelelse
news:eC******** ******@TK2MSFTN GP15.phx.gbl...

Jan,

I thought that your question was another one, that i can not resolve.
(Databinding to a column of a related table).

However I think that this one will go.
DirectCast(Bind ingContext(ds, "ParentTableNam e.RelationName" ),
CurrencyManager ).EndCurrentEdi t()

I hope this helps,

Cor