23-11-13, 07:37 PM
(آخر تعديل لهذه المشاركة : 23-11-13, 07:37 PM {2} بواسطة مبرمج هاوي.)
اخي الكريم
السلام عليكم
هذه طريقة تعبئة اللست فيو من الداتا بيز
ارجو ان تستفيد منها
شكرا
''' 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
السلام عليكم
هذه طريقة تعبئة اللست فيو من الداتا بيز
ارجو ان تستفيد منها
شكرا
''' 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
