نقل قول نوشته شده توسط safari_m4 مشاهده تاپیک
Private Sub ExsistNumber()

Cmd = New SqlCommand("SELECT Count(NumberFactor) As ExistSale FROM TB_Factor_Sale where ID_Sal=@ID_Sal", Con)

Cmd.Parameters.AddWithValue("@ID_Sal", Val(ID_SalM))
Con.Open()
Dim Dr As SqlDataReader = Cmd.ExecuteReader
If Dr.Read = True Then
NumberFactorSale = Val(Dr("ExistSale").ToString)
End If
Dr.Close()
Con.Close()
If NumberFactorSale = 0 Then
ExistSaleS = False
Else
ExistSaleS = True
End If
End Sub
این دستور جهت مشخص کردن اولین شماره



Private Sub MaxSaleNumber()

Cmd = New SqlCommand("SELECT Top 1 MAX(NumberFactor) As NumberFactor FROM TB_Factor_Sale where ID_Sal=@ID_Sal order by NumberFactor desc", Con)

Cmd.Parameters.AddWithValue("@ID_Sal", Val(ID_SalM))
Con.Open()
Dim Dr As SqlDataReader = Cmd.ExecuteReader
If Dr.Read = True Then
LastSaleNumber = Dr("NumberFactor").ToString()
End If
Con.Close()
End Sub

این کد دیگرش امیدوارم فهمیده باشی ببخشید که من خیلی کم وارد سیستم می شم که اگر مشکلی داشتی جواب بدهم آلان هم چون مشکلی داشتم وارد سیستم شد به هر حال ببخشید

سلام

من یه مثال زدم و منظورم این نبود که میخام با سال و ماه کار کنم

داخل برنامه کد مشتری از 1000 شروع میشه

هر مشتری میتونه چندین سفارش داشته باشه

برای اینکه کد سفارش و کد مشتری یکی نشه میخام اینکارو کنم که وقتی کد مشتری من 1000 بود و کد سفارش من هم از 1000 شروع میشه برای اینکه باهم فرق داشته باشه میخام ابتدای تمامی کدهای سفارش عدد 98 یا 99 یا 270 یا هم عدد دیگه ای بیاد . کد مشتری اول میشه 1000 کد مشتری دوم میشه 1001 با فرض اینکه هر مشتری یک سفارش داشته باشه کد سفارش مشتری اول میشه 981000 و کد سفارش مشتری دوم باید بشه 981001 و اگه سفارش جدیدی ثبت شد کدش بشه 981003 و الی اخر . اگه بازم نیاز به توضیح هست خدمت شما عرض کنم