Predmet:Re: MS Access aplikacija u VB

---

***NARUDZBE***
Name/Type/Nulls
ID/int    /N - PK
KupacID/int/Y
Datum/datetime/Y
RelacijaID/int/Y
KorisnikID/int/Y
DatumKnjizenja/datetime/Y
KorisnikIzmenio/int/Y
DatumIzmene/timestamp/Y
Oznacavanje/int/Y
KlasaCenovnikaID/int/Y
VrstaNarudzbeID/int/Y
KCID/int/Y

***NARUDZBEDETALJI***
Name/Type/Nulls
ID/int/N - PK
PorudzbinaID/int/N - FK
ProizvodID/int/N
Komad/int/Y
Kutija/int/Y
Tezina/int/Y
KorisnikID/int/Y
DatumKnjizenja/datetime/Y
KorisnikIzmenio/int/Y
DatumIzmene/datetime    /Y

***COD***
Public Class Narudzbe
Private Sub PorudzbineBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles PorudzbineBindingNavigatorSaveItem.Click
Me.Validate()
Me.PorudzbineBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.INIT_DB_DataSet)
l
End Sub

Private Sub Narudzbe_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Me.PorudzbineDetaljiTableAdapter.Fill(Me.INIT_DB_DataSet.PorudzbineDetalji)

Me.PorudzbineTableAdapter.Fill(Me.INIT_DB_DataSet.Porudzbine)


End Sub

Private Sub PorudzbineDetaljiDataGridView_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles PorudzbineDetaljiDataGridView.CellEndEdit

Dim nazivpro As New INIT_DB_DataSetTableAdapters.PorudzbineDetaljiTableAdapter

If e.ColumnIndex = 0 Then

If Val(PorudzbineDetaljiDataGridView.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) > 0 Then
PorudzbineDetaljiDataGridView.Rows(e.RowIndex).Cells(e.ColumnIndex + 1).Value = nazivpro.ProizvodNaziv(CInt(Val(PorudzbineDetaljiDataGridVi
ew.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)))

End If

End If

End Sub

Private Sub RelacijaIDTextBox_LostFocus(sender As Object, e As EventArgs) Handles RelacijaIDTextBox.LostFocus
Me.Validate()
Me.PorudzbineBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.INIT_DB_DataSet)
End Sub


End Class

***FORM
ID, KupacID, Datum, RelacijaID

na polju IDTextBox sa stavio (DataBindings/Advanced) - Property - Text/Binding - PorudzbineBindingSource - ID/Update mode - onpropertychanged i na taj nacin radi.
na polju RelacijaID sa stavio da sacuva podatke na LostFocus i tako uvek imam broj (NarudzbeDetalji)porudzbineID koji odgovara (Narudzbe)ID.

Sigurno ima laksi i cistiji nacin da se spreci dupliranje.