14 lines
567 B
Plaintext
14 lines
567 B
Plaintext
Public Class clsdbkey
|
|
|
|
Dim KeyTableAdapter As New LPDataSetTableAdapters.key_tabelleTableAdapter
|
|
Dim lpdataset As New LP.LPDataSet
|
|
Public Function Get_NewKey(ByVal Tablename As String) As Integer
|
|
KeyTableAdapter.FillByTablename(lpdataset.key_tabelle, Tablename)
|
|
Dim key_tablerow As LPDataSet.key_tabelleRow
|
|
key_tablerow = lpdataset.key_tabelle.Rows(0)
|
|
key_tablerow.key_wert = key_tablerow.key_wert + 1
|
|
KeyTableAdapter.Update(lpdataset.key_tabelle)
|
|
Return key_tablerow.key_wert
|
|
End Function
|
|
End Class
|