14-01-18, 07:28 PM
السلام عليكم ، مطلوب معرفة حاصل جمع عمود في حالة بدء تحميل فورم او عند الاختيارات
عند قيام الاختييارات مثل الكود التالى
كود :
Public Function LoadOfAdodcListView()
On Error Resume Next
Adodc1.RecordSource = "select * from tblEmployee"
Call Data_Get
End Function
كود :
Private Sub Data_Get()
On Error Resume Next ': Err.Clear
Adodc1.CommandType = adCmdText
Adodc1.Refres
Dim XItem As ListItem
ListView1.ListItems.Clear
Do While Not Adodc1.Recordset.EOF
Set XItem = ListView1.ListItems.Add(, , Adodc1.Recordset(0) & vbNullString)
XItem.SubItems(1) = Adodc1.Recordset(1) & vbNullString
XItem.SubItems(2) = Adodc1.Recordset(2) & vbNullString
XItem.SubItems(3) = Adodc1.Recordset(3) & vbNullString
XItem.SubItems(4) = Adodc1.Recordset(4) & vbNullString
XItem.SubItems(5) = Adodc1.Recordset(5) & vbNullString
XItem.SubItems(6) = Adodc1.Recordset(6) & vbNullString
Adodc1.Recordset.MoveNext
Loop
End Sub
عند قيام الاختييارات مثل الكود التالى
كود :
Private Sub cmdAdodcListViewSrBox_Click()
On Error Resume Next
Adodc1.RecordSource = "select * from tblEmployee where Sr Between " & Me.txtAdodcListViewSrBox1.Text & " AND " & Me.txtAdodcListViewSrBox2.Text & " Order By Sr"
Call Data_Get
End Sub