30-08-16, 04:29 PM
السلام عليكم
هي المشكلة هنا فين يا اخواني
Function GetAutoNum(TableName As String, ColName As String) As String
Dim Str As String
Str = "Select max (" & ColName & ") + 1 from " & TableName
Dim tb1 As New DataTable
tb1 = GetTable(Str)
Dim AutoNum As String
If tb1.Rows(0)(0) Is DBNull.Value Then
AutoNum = "1"
Else
AutoNum = tb1.Rows(0)(0)
Return AutoNum
End If
End Function
هي المشكلة هنا فين يا اخواني
Function GetAutoNum(TableName As String, ColName As String) As String
Dim Str As String
Str = "Select max (" & ColName & ") + 1 from " & TableName
Dim tb1 As New DataTable
tb1 = GetTable(Str)
Dim AutoNum As String
If tb1.Rows(0)(0) Is DBNull.Value Then
AutoNum = "1"
Else
AutoNum = tb1.Rows(0)(0)
Return AutoNum
End If
End Function