04-05-21, 02:15 AM
استخدم الفيجوال مع قاعدة سيكوال وأريد الاتى
محتاج كود DLast
بحيث استخدمها في الحصول على اخر قيمة لسعر بحيث كود الصنف = كود الصنف
وانا قمت باستخدام تلك الكود ولكنه لا يعمل
Public Function Price_Ins_Ex(ByVal cod_item As String, ByVal number_transfer As String) As DataTable
Dim CON As New Class_CON
Dim DT As New DataTable
DT.Clear()
DT = CON.select_txt("SELECT Dlast price_ from View_Searial_Number_Important WHERE cod_item ='" & cod_item & "' '")
Return DT
End Function
محتاج كود DLast
بحيث استخدمها في الحصول على اخر قيمة لسعر بحيث كود الصنف = كود الصنف
وانا قمت باستخدام تلك الكود ولكنه لا يعمل
Public Function Price_Ins_Ex(ByVal cod_item As String, ByVal number_transfer As String) As DataTable
Dim CON As New Class_CON
Dim DT As New DataTable
DT.Clear()
DT = CON.select_txt("SELECT Dlast price_ from View_Searial_Number_Important WHERE cod_item ='" & cod_item & "' '")
Return DT
End Function