Har en mdichild-y som jag öppnar från midchild-x. Från meny på mdiparent startar jag ett event som mdichild-y skall fånga upp och utföra en sparning av sina textboxars innehåll i en databas.

Allt går bra första gången man öppna mdichild-y och sparar och stänger formen. Nästa gång jag öppnar midchild-y från midchild-x och skall utföra spara från midparent så är innehållet i textboxarna borta men om jag istället sparar med knapp direkt på mdichild-y så fungerar det..

Vad kan vara galet?

/Magnus

Midicild-x har en grid med poster

Varje post i griden har ett nummer.

Mdichild-y är ett formulär unkt för postnummret.

Jag öppnar mdiformen på följande sätt

<code>
Dim frmNy As New frmCustomerForm
With frmNy
.MdiParent = mdiMGKadm
.Name = Me.Name.ToString & Pno
.postnr = Pno
.StartPosition = FormStartPosition.CenterScreen
.Show()
.BringToFront()
End With
</code>

För att inte kunna öppna flera mdiform av samma postnummer så loopar igenom alla öppna mdiform
<code>
Dim f As Form = Nothing
For Each f In My.Application.OpenForms
If f.Name.ToString.IndexOf(Me.Name.ToString & Pno.ToString) >= 0 Then
formOpen = True
Exit For
End If
Next
</code>

Men för att komma runt mitt problem med att innehåll i textboxar försvinner så måste jag göra varje mdiform unik. Lägger därför till nudatumtiden till namnet. Och vipps så fungerar det.

<code>
Dim frmNy As New frmCustomerForm
With frmNy
.MdiParent = mdiMGKadm
.Name = Me.Name.ToString & Pno & Now
.postnr = Pno
.StartPosition = FormStartPosition.CenterScreen
.Show()
.BringToFront()
End With

</code>

Men finns det något bättre sätt?