|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Miscelâneas)
|
|
 |
Título da Dica: Carrega dados na ListView
|
 |
|
|
|
Postada em 20/4/2007 por José Reinaldo
Facil e simples....
Basta chamar esta sub incluindo o nome da listview e o RST que devera preenche-la.
Sub CarregaLista(ByRef mListView As ListView, ByRef mDados As OleDbDataReader)
Dim lvwColuna As ColumnHeader
Dim itmListItem As ListViewItem
Dim strTeste As String
Dim cnt As Short
Do While mDados.Read
itmListItem = New ListViewItem
strTeste = IIf(mDados.IsDBNull(0), "", mDados.GetValue(0))
itmListItem.Text = strTeste
For cnt = 1 To mDados.FieldCount() - 1
If mDados.IsDBNull(cnt) Then
itmListItem.SubItems.Add("")
Else
itmListItem.SubItems.Add(mDados.GetValue(cnt))
End If
Next cnt
mListView.Items.Add(itmListItem)
Loop
End Sub
Facil neh ??? e so pegar e usar !!!
Ate mais !!!
|
|
|
|
|
