11-02-23, 11:42 PM
(آخر تعديل لهذه المشاركة : 12-02-23, 12:40 AM {2} بواسطة atefkhalf2004.)
حضرتك سوف اضعه من غير ما تقول انا عرفت من الموبايل ولما اعود للمنزل سوف اضعه وللعلم انا مؤيدك
لاحظ ردي انا مش متمكن من الموبايل
Sub NoInvo(ByVal intable As String)
If objconn.State = ConnectionState.Closed Then objconn.Open()
Dim cmd As New OleDbCommand("SELECT max(invon) as theinvono FROM [" & intable & "] ", objconn)
Me.TextBox1.Text = cmd.ExecuteScalar
End Sub
لاحظ ردي انا مش متمكن من الموبايل
Sub NoInvo(ByVal intable As String)
If objconn.State = ConnectionState.Closed Then objconn.Open()
Dim cmd As New OleDbCommand("SELECT max(invon) as theinvono FROM [" & intable & "] ", objconn)
Me.TextBox1.Text = cmd.ExecuteScalar
End Sub