تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اداة list view
#1
Question 
كود الاربط اداة list view بقاعدة البيانات وكود الادخال لبيانات باداة list view وكود الاظهار بيانات الاداة list view في فورم اخر عند الضغط مرتين على الخانة التي بها ادوات
الرد }}}
تم الشكر بواسطة: ذي قاري
#2
هل تستطيع الربط بين قاعدة البيانات و بين تكست بوكس مثلا ؟
الرد }}}
تم الشكر بواسطة:
#3
ارفق مثالك وراح يتم التعديل علية الموضوع سهل
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}
تم الشكر بواسطة:
#4
[video=dailymotion]http://[/video]:blush::blush::blush::blush::blush::blush::blush::blush::blush::blush::blush:
الرد }}}
تم الشكر بواسطة:
#5
اخي الكريم
السلام عليكم
هذه طريقة تعبئة اللست فيو من الداتا بيز
ارجو ان تستفيد منها
شكرا

''' LV1 = listView
''''' RSP = RecordSet

With LV1
.View = lvwReport
.ListItems.Clear
For i = 1 To 7
.ColumnHeaders.Add i
Next i
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "ÊÓáÓá", .Width * 0.1
.ColumnHeaders.Add , , "ÑÞã ÇáåÇÊÝ", .Width * 0.15, 2
.ColumnHeaders.Add , , "ÇáÇÓã", .Width * 0.12, 2
.ColumnHeaders.Add , , "ÇáÇÈ", .Width * 0.12, 2
.ColumnHeaders.Add , , "ÇáÌÏ", .Width * 0.12, 2
.ColumnHeaders.Add , , "ÇáÌäÓ", .Width * 0.15, 2
.ColumnHeaders.Add , , "ÊÇÑíÎ ÇáãíáÇÏ", .Width * 0.15, 2
If RSP.RecordCount = 0 Then Exit Sub
RSP.MoveFirst
i = 0
Do While Not RSP.EOF
i = i + 1
.ListItems.Add i, , RSP!No & " "
.ListItems(i).SubItems(1) = RSP!PhoneNo & " "
.ListItems(i).SubItems(2) = RSP!First & " "
.ListItems(i).SubItems(3) = RSP!Father & " "
.ListItems(i).SubItems(4) = RSP!Grand & " "
.ListItems(i).SubItems(5) = RSP!Sex & " "
.ListItems(i).SubItems(6) = RSP!Birth & " "
RSP.MoveNext
Loop
RSP.MoveFirst
End With

اخي الكريم
السلام عليكم
هذه طريقة تعبئة اللست فيو من الداتا بيز
ارجو ان تستفيد منها
شكرا

''' LV1 = listView
''''' RSP = RecordSet

With LV1
.View = lvwReport
.ListItems.Clear
For i = 1 To 7
.ColumnHeaders.Add i
Next i
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "ÊÓáÓá", .Width * 0.1
.ColumnHeaders.Add , , "ÑÞã ÇáåÇÊÝ", .Width * 0.15, 2
.ColumnHeaders.Add , , "ÇáÇÓã", .Width * 0.12, 2
.ColumnHeaders.Add , , "ÇáÇÈ", .Width * 0.12, 2
.ColumnHeaders.Add , , "ÇáÌÏ", .Width * 0.12, 2
.ColumnHeaders.Add , , "ÇáÌäÓ", .Width * 0.15, 2
.ColumnHeaders.Add , , "ÊÇÑíÎ ÇáãíáÇÏ", .Width * 0.15, 2
If RSP.RecordCount = 0 Then Exit Sub
RSP.MoveFirst
i = 0
Do While Not RSP.EOF
i = i + 1
.ListItems.Add i, , RSP!No & " "
.ListItems(i).SubItems(1) = RSP!PhoneNo & " "
.ListItems(i).SubItems(2) = RSP!First & " "
.ListItems(i).SubItems(3) = RSP!Father & " "
.ListItems(i).SubItems(4) = RSP!Grand & " "
.ListItems(i).SubItems(5) = RSP!Sex & " "
.ListItems(i).SubItems(6) = RSP!Birth & " "
RSP.MoveNext
Loop
RSP.MoveFirst
End With
الرد }}}
تم الشكر بواسطة:



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


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