سؤال بخصوص عمل فاتورة بيع

- كان ليا استفسار ما فائدة الـ 6 Rows ؟

- مادمت انك نجحت في عمل ذلك عند الادال في الـ TextBox , فا المشكله الان في اتمام ذلك عند الكتابه في اول خليه في الجريد ؟

مشكور اخي على ردك.......

الفائده من 6 Rows اني لمن باسجل قطعه الاولى في الخليه الاولى من اول صف بنتقل الى الصف الثاني وبكتب القطعه الثانيه وهكذا يعني باسجل اكثر من قطعه في فاتوره واحده حيث اني لمن ابي اعدل رقم قطعه او سعر قطعه على طول انتقل الى الصف اللي فيه القطعه واعدلها بيكون اسهل من اني ارجع واكتب في التكست بوكس مره ثانيه واسوي لها تعديل حفظ ...وشي ثاني من ناحية مظهر بيكون مظهر الفاتوره افظل لمن بتضيف على طول الى ال Grid بدل من تكست بوكس..هي المشكله كيف اقدر اضيف واعدل وامسح مباشره في ال Grid

مشكور مره ثانيه على ردك

بصراحه انا دخت :wacko:

أنت قصدك البحث ولا التعديل ولا ايه ؟

ههههههههههه لاني انا بنفسي دخت وانا اقرا موضوعي .....

بعطيك العمليه بتفصيل ممكن تساعدني....

عندي فورم خا ص للمشتريات اسجل فيه القطع ولمن يجي زبون عندي عشان ابيع له افتح فورم ثاني اللي هي المبيعات ((الفاتورة)) ولمن اسجل رقم القطعه في الـ Grid يطلع لي القطع اللي سجلتها في المشتريات عشان اضيفها في حساب العميل طبعا يختلفو العملاء عشان كذا بعدل من خلال الGrid سعر البيع ...انشلء الله اكون وصلت المعلومه

مرحبا ..

انصحك باستخدام MS Flex Grid لمميزاتها الجيده .

قم بأنشاء

FlexView
rows=4   fixed rows =1
cols = 5  fixed =0

text1
backcolor=&H00C0C0FF&
borderstyle=0

ثم انقل هذا الكود بالفورم :

Private Sub Command1_Click()
Text2.Text = LTrim(Text1.Text)

End Sub


Private Sub FlexView_EnterCell()
Text1.Visible = False
Text1.Left = FlexView.Left + FlexView.CellLeft
Text1.Width = FlexView.CellWidth
Text1.Top = FlexView.Top + FlexView.CellTop
Text1.Height = FlexView.CellHeight
Text1.Text = FlexView.Text
Text1.Visible = True
Text1.SetFocus
  SendKeys "{Home}+{End}"



End Sub

Private Sub FlexView_LeaveCell()
If Text1.Text <> Noting Then FlexView.Text = Text1.Text

End Sub

Private Sub Form_Load()
LoadFlexView
FlexView.Rows = 4

End Sub
Sub LoadFlexView()
FlexView.Clear

FlexView.TextMatrix(0, 0) = "ÑÞã ÇáÕäÝ"
FlexView.TextMatrix(0, 1) = "ÇÓã ÇáÕäÝ"
FlexView.TextMatrix(0, 2) = "ÇáßãíÉ"
FlexView.TextMatrix(0, 3) = "ÓÚÑ ÇáæÍÏÉ"
FlexView.TextMatrix(0, 4) = "ÇáÇÌãÇáí"


FlexView.ColWidth(0) = 1500
FlexView.ColWidth(1) = 5000
FlexView.ColWidth(2) = 1200
FlexView.ColWidth(3) = 1500
FlexView.ColWidth(4) = 1500

For CL = 0 To 4
FlexView.ColAlignment(CL) = flexAlignCenterCenter

Next CL

For CL = 0 To 3
FlexView.RowHeight(CL) = 300

Next CL

FlexView.MousePointer = flexCustom
FlexView.Rows = 2
End Sub

Private Sub Form_Resize()
FlexView_EnterCell

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

		Case 39
		If FlexView.Col > 1 Then FlexView.Col = FlexView.Col - 1
		Case 38
		If FlexView.Row > 1 Then FlexView.Row = FlexView.Row - 1
		Case 37
		If FlexView.Col < FlexView.Cols - 1 Then FlexView.Col = FlexView.Col + 1
		Case 40
		If FlexView.Row < FlexView.Rows - 1 Then FlexView.Row = FlexView.Row + 1
		Case 13
		If FlexView.Col < FlexView.Cols - 1 Then
		FlexView.Col = FlexView.Col + 1
		Else

				If FlexView.Row < FlexView.Rows - 1 Then
				FlexView.Col = 0
				FlexView.Row = FlexView.Row + 1
				End If

		End If



End Select

End Sub

اصبح لديك تصميم فاتوره مبيعات قابله للتحرير

عند ضغط المستخدم انتر تجلب له المعطيات الاخرى بناء على رقم الصنف الذي أدخله وترجع البيانات لل FlexView

سهله عن طريق تحديد الصف المتواجد فيه الان :

FlexView.TextMatrix(0, 0) = "58524"
FlexView.TextMatrix(0, 1) = "كتاب فيجوال بيسك 5"
FlexView.TextMatrix(0, 2) = "5"
FlexView.TextMatrix(0, 3) = "100"
FlexView.TextMatrix(0, 4) = "500"

واذا واجهت صعوبه غالي والطلب رخيص

ALATEEQ

الف الف شكر بريق الماس.....

حاولت انا سوي مثل هذه من قبل بس ما عرفت الطريقه بس ما شاء الله عليك انت سويتها ونجحت الطريقه بس عندي بعض الاستفسارات بخصوص الكود لو بتقدر تشرحه لي باكون ممنون لك

هذا الكود ايش معنه او تقصد فيه
  SendKeys "{Home}+{End}"

===========================

والكود الثاني اللي فهمته منه اني اذا ضغطت زر السهم اللي فوق او تحت او اليمين والشمال  ينتقل من صف الى صف او من عمود الى عمود
اذا كان صحيح كلامي ابي اعرف ليه سوته في هذا الحدث  اللي 
 Text1_KeyUp
يعني ايش الفرق بينه وبين الحدث
Text1_KeyDown
و
Text1_KeyPress


Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

		Case 39
		If FlexView.Col > 1 Then FlexView.Col = FlexView.Col - 1
		Case 38
		If FlexView.Row > 1 Then FlexView.Row = FlexView.Row - 1
		Case 37
		If FlexView.Col < FlexView.Cols - 1 Then FlexView.Col = FlexView.Col + 1
		Case 40
		If FlexView.Row < FlexView.Rows - 1 Then FlexView.Row = FlexView.Row + 1
		Case 13
		If FlexView.Col < FlexView.Cols - 1 Then
		FlexView.Col = FlexView.Col + 1
		Else

				If FlexView.Row < FlexView.Rows - 1 Then
				FlexView.Col = 0
				FlexView.Row = FlexView.Row + 1
				End If

		End If



End Select

End Sub

الف الف شكر مره ثااااااانيه