تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة في flexgrid
#1
اخواني ارجو مساعدتي في الفلكس جريد بحيث اذا تم الظغط على انتر يذهب المؤشر الى خلية رقم 4 (الكمية)
ارفقة المثال ليتم التعديل عليه
[ATTACH]3863[/ATTACH]


الملفات المرفقة
.rar   pro.rar (الحجم : 246.03 ك ب / التحميلات : 92)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- أنا لم أشاهد مثالك لأني حالياً أتصفح وأرد بواسطة الموبايل ، على العموم أولاً لابد أن تكون طريقة التركيز في أداة الفليكس بالخلية وليس بالصف وتستطيع تغيير نوع التركيز عن طريق خصائص أداة الفيكس ، وعادةً الإفتراضي يكون التركيز على الخلية لذلك سأفترض أن مثالك كذلك ، عندها إستخدم هذا الكود :

كود :
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
MSFlexGrid1.Col = 4
MSFlexGrid1.SetFocus
End If
End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3
مشكور اخوي نجح معي الكود
الرد }}}
تم الشكر بواسطة:
#4
لدي الفلكس جريد فيها 100 سطر اريد ان احفظ السطور الذي تحتوي على بيانات وقد جربيت الكود التالي فهل هي الطريقة الصحيحة ارجو الافادة
For aloop = 1 To grid.Row - 1
If rs.State = 1 Then rs.Close
rs.Open "save", DB, adOpenStatic, adLockPessimistic
rs.AddNew
rs![d1] = grid.TextMatrix(aloop, 1)
rs![d2] = grid.TextMatrix(aloop, 2)
rs![d3] = grid.TextMatrix(aloop, 3)
rs.Update
Next aloop


MsgBox "Êã ÍÝÙ ÈíÇäÇÊ ÇáÝÇÊæÑÉ ÈäÌÇÍ ", vbInformation, "ÍÝÙ"
For aloop = 1 To grid.Row - 1
grid.TextMatrix(aloop, 1) = ""
grid.TextMatrix(aloop, 2) = ""
grid.TextMatrix(aloop, 3) = ""
grid.TextMatrix(aloop, 4) = ""
grid.TextMatrix(aloop, 6) = ""
Next aloop



End If



ارجو الافادة اذا كانت الطريقة صحيحة او اذا كان توجد طريقة افضل من ذلك
الرد }}}
تم الشكر بواسطة:
#5
ارجو المساعده
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

- إستخدم هذا الكود :

كود :
Private Sub Command1_Click()

Dim MaxLen() As Integer
Dim I As Long
Dim N, F As Integer
Dim CurrentLine As String

ReDim MaxLen(MSFlexGrid1.Cols - 1) As Integer

For I = 0 To MSFlexGrid1.Rows - 1

    For N = 0 To MSFlexGrid1.Cols - 1
        If Len(Trim(MSFlexGrid1.TextMatrix(I, N))) > MaxLen(N) Then
           MaxLen(N) = Len(Trim(MSFlexGrid1.TextMatrix(I, N)))
        End If
    Next

Next

If Dir$(App.Path & "\MSFlexGrid1.Txt") <> "" Then
   DeleteFile App.Path & "\MSFlexGrid1.Txt"
   DoEvents
End If

F = FreeFile
Open App.Path & "\MSFlexGrid1.Txt" For Append As #F

For I = 0 To MSFlexGrid1.Rows - 1

    CurrentLine = ""

    For N = 0 To MSFlexGrid1.Cols - 1
        If Len(Trim(MSFlexGrid1.TextMatrix(I, N))) < MaxLen(N) Then
           CurrentLine = CurrentLine & Trim(MSFlexGrid1.TextMatrix(I, N)) & Space(MaxLen(N) - Len(Trim(MSFlexGrid1.TextMatrix(I, N)))) & Space(5)
        Else
           CurrentLine = CurrentLine & Trim(MSFlexGrid1.TextMatrix(I, N)) & Space(5)
        End If
    Next

Print #F, CurrentLine
DoEvents

Next

Close #F
DoEvents

MsgBox "تم التصدير بنجاح", vbOKOnly + vbInformation, "تنبيه"

End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,405 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
  [سؤال] المساعدة في تقريب الارقام عمور2016 5 3,311 30-01-19, 07:44 PM
آخر رد: sendbad100
  [vb6.0] أرجو المساعدة بتتمة المشروع سمير الجبالي 6 2,854 14-07-18, 11:28 PM
آخر رد: سمير الجبالي
Photo [سؤال] ارجو المساعدة تحويل الارقام في الاكتيف ريبورت حامد محمد 8 3,824 10-05-18, 04:44 AM
آخر رد: حامد محمد
  المساعدة بخصوص استدعاء كود من ملف نصي VB.NET 3 2,688 10-03-18, 03:50 PM
آخر رد: عبد العزيز البسكري
  ارجو المساعدة في اوامر check بدلا من listbox1 amer2000 5 2,508 23-02-18, 11:44 PM
آخر رد: awidan76
  [سؤال] المساعدة - بربط Combo بقاعدة البيانات amor58 1 1,986 30-01-18, 11:19 PM
آخر رد: Amir_Alzubidy
  [مثال] المساعدة - باعادة ترقيم الداتا ريبورت سامى 4 2,566 30-01-18, 03:24 PM
آخر رد: سامى
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 8 4,611 14-01-18, 07:41 PM
آخر رد: awidan76

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم