[asemshahen5]

PHP كود :

   Public Function Get_Last_Record(Table_Name, OrderByField) As String
        Get_Last_Record = 0
        Dim Str = "Select count(" & OrderByField & ") From  " & Table_Name
        Dim Adp As New SqlClient.SqlDataAdapter(Str, cn)
        Dim Ds As New DataSet
        Adp.Fill(Ds)
        Dim Dt As DataTable
        Dt = Ds.Tables(0)
        If Dt.Rows.Count > 0 Then
            Dim I = Dt.Rows.Count - 1
            Get_Last_Record = Dt.Rows(I).Item(0)
        End If
    End Function 


كود الفورم :

PHP كود :

       For Each tx As Control In Controls
            If TypeOf tx Is TextBox Then
                tx.Text = ""
            End If
        Next
        Txt_ID.Text = Format(Val(Get_Last_Record("Castomer", "ID") + 1), "CUS000000")