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.