[Taha Okla]

ما أعرف كم مرة بتستخدم الاستعلام عن السعر
ولكن بإختصار ..

لو كنت بتستخدم الكود التالي لجلب المادة بأسعارها :

كود :

cmd = New SqlCommand("SELECT PID, RTRIM(Product.ProductCode),RTRIM(ProductName),RTRIM(Temp_Stock.Barcode),(CostPrice),(SellingPrice),(Discount),(VAT),Qty, RTRIM(Product.SellingPrice2) from Temp_Stock,Product where Product.PID=Temp_Stock.ProductID and Qty > 0  order by ProductCode", con)

بتصير بعد الاختصار والتحديد بشروط التحديد (جملة، نصف جملة، قطاعي ):
ع أساس أنها (ComboBox1) هي اللي بتحدد فيها نوع السعر..

كود :

Dim TypPrice As String
If ComboBox1.Text = "نصف جملة" Then
   TypPrice = "SellingPrice1"
ElseIf ComboBox1.Text = "جملة" Then
   TypPrice = "SellingPrice2"
Else
   TypPrice = "SellingPrice"       ' الحالة الأخيرة - 'قطاعي' مثلاً
End If

Dim strSQL1 = "SELECT PID, RTRIM(Product.ProductCode),RTRIM(ProductName)," &
             "RTRIM(Temp_Stock.Barcode),(CostPrice),(" & TypPrice & ")," &
             "(Discount),(VAT),Qty, RTRIM(Product.SellingPrice2) " &
             "from Temp_Stock,Product " &
             "where Product.PID=Temp_Stock.ProductID " &
             "and Qty > 0  order by ProductCode"
cmd = New SqlCommand(strSQL1, con)

في أي مكان بتعتمد على السعر وتغييره : عليك التغيير بكود مشابه ويناسب تلك الحالة
فكر وجرب واشتغل بيدك وراح تصل للحل ..