[خالد كامل1]

(05-09-19, 09:15 AM)asemshahen5 كتب : طريقة رقم واحد :

ضع هذا بمديول :

PHP كود :

   Public PRICE_G As Decimal = 0
    Public PRICEB As Decimal = 0 


في أول فورم فيه الاستعلام عبأ المتغيرات كالتالي :

PHP كود :

       PRICE_G = dt.Rows(0).Item("PRICEG").ToString
        PRICEB = dt.Rows(0).Item("PRICEB").ToString 


و عند بقية النوافذ ضع التالي :

PHP كود :

       TextBox1.Text = PRICE_G
        TextBox2.Text = PRICEB 


طريقة ثانية :

ضع هذا الكود في الموديول :

PHP كود :

   Public Sub FillPrice(PRICE1 As TextBox, PRICE2 As TextBox)
        Dim sqlstr As String = "select Buy_Price,Sales_PriceTax From Products_Qty where Pro_ID=1"
        Dim da As New SqlClient.SqlDataAdapter(sqlstr, con)
        Dim dt As New DataTable
        da.Fill(dt)
        PRICE1.Text = dt.Rows(0).Item("Buy_Price").ToString
        PRICE2.Text = dt.Rows(0).Item("Sales_PriceTax").ToString
    End Sub 


و هذا كود الاستدعاء :

PHP كود :

FillPrice(TextBox1, TextBox1) 


غيير الاستعلام و اسماء الاعمدة بما يتناسب مع عملك .

لك كل التحيه والتقدير اخى العزيز