اضافة سطر الى Flexgrid دون وجود قاعدة بيانات ثم طباعة Flexgrid

up

لنقل قيمة من أداة في الفورم الثاني إلى الفورم الأول

form1.controls!label1.caption=form2.controls!label1.caption

باعتبار القيمة في اليبل1 في الفور الثاني ننقلها لليبل 1 في الفور الأول

مشكور لقد قمت بتعديل السؤال لتفهمى طلبي أكثر

جازاك الله خيرا

- المشكلة هي عند اختيار السلعة كيف يمكن اضافة تلك السلعة الى FlexGrid الموجودة في النافذة الأولى وانقاص كمية السلعة من المخزن

اخى toyoki

1 - لنقل بيانات من فورم الى فورم اخر به flexgrid

Private Sub Command1_Click()


frmproduct.Text1.Text = flexgrid.TextMatrix(1, 1)

End Sub

وطبعا اخى مع افتراض انك سوف تنقل بيانات للعامود الاول والسطر الاول

2- انقاص السلعة من المخزن

استخدم جملة sql على سبيل المثال . . .

Dim SQL As String

SQL = "UPDATE balanceavg SET TotalOnHand= val(QtyIn)- val(QtyOut)"
con1.Execute SQL

أو 

SQL = "UPDATE Product INNER JOIN balanceavg ON Product.count = balanceavg.code SET Product.count =  [balanceavg].[Code], Product.IncomQty = [balanceavg].[QtyIn], Product.IssueQty = [balanceavg].[QtyOut], Product.TotalOnHand = [balanceavg].[TotalOnHand] " & _
"WHERE balanceavg.code = [Product.count] "
con1.Execute SQL

وطبعا اسماء الحقول أفتراضية ولم اقم بتجربتها . فقط كتبتها لك للتوضيح .

مشكور أخي لكن أنا ليست لدي أي فكرة عن SQL