29-08-22, 12:25 PM
السلام عليكم ورحمة الله وبركاته....
أرجو ان يساعدكم هذا الحل ....
Dim TxbBarcode As String = TxbBarcode.Text
Dim cmdPos As New SqlCommand("select top 1 ItemNo,Name,Unit,PerUnit,Qty,ExpDate,Price_1,Batch,qty from PosItem where qty <> '0' and BarCode = '" & TxbBarcode & "' ORDER BY ExpDate ", ConPOSSham)
أرجو ان يساعدكم هذا الحل ....
Dim TxbBarcode As String = TxbBarcode.Text
Dim cmdPos As New SqlCommand("select top 1 ItemNo,Name,Unit,PerUnit,Qty,ExpDate,Price_1,Batch,qty from PosItem where qty <> '0' and BarCode = '" & TxbBarcode & "' ORDER BY ExpDate ", ConPOSSham)