PROBLEMA EN EL TABCONTROL
Publicado por melqui (243 intervenciones) el 24/11/2020 03:32:25
hola chicos
necesito una ayuda en este problema
tengo este formulario que cuando cargo la lista de correo al datagridview la separo por dominios
al serparar despues
aplico cada dominio para una nueva lista
el problema es que tengo
que en listview consigo hacer um loop y pasarla todos los correos que contiene los dominios en la lista
ejemplo
dominio @gmail.com,
todo los que estan con esa extension sera cargada los correos que contiene la palabra
en listviews me sale super
mas cuando la color en un datagridview no me sale los registros
tal como esta en la imagen
en listview la tengo de esta forma
lo que necesito es que los registros que contiene los dominios designados se me llene el datagrid.
necesito una ayuda en este problema
tengo este formulario que cuando cargo la lista de correo al datagridview la separo por dominios
al serparar despues
aplico cada dominio para una nueva lista
el problema es que tengo
que en listview consigo hacer um loop y pasarla todos los correos que contiene los dominios en la lista
ejemplo
dominio @gmail.com,
todo los que estan con esa extension sera cargada los correos que contiene la palabra
en listviews me sale super
mas cuando la color en un datagridview no me sale los registros
tal como esta en la imagen
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
On Error Resume Next
If DgvDados.Rows.Count < 1 Then
Exit Sub
End If
Dim StrItem As String
StatusCancelFiltro = TrueFor Each Linha_X As DataGridViewRow In DgvDados.Rows If StatusCancelFiltro = False ThenExit For
End If
StrItem = (Linha_X.Cells("EMACLI").Value).ToString
Application.DoEvents()
For Each Tab_AbaX As TabPage In TabControl1.TabPagesIf Tab_AbaX.Text.Contains(StrItem) Then
' listDominios.Add(StrEmailDominio)Dim Obj_DatagridX As DataGridView = DirectCast(Tab_AbaX.Controls(0), DataGridView)
Obj_DatagridX.Rows.Add(StrItem)
Tab_AbaX.Text = Tab_AbaX.Tag & " (" & Obj_DatagridX.Rows.Count.ToString & ")"
End If
Next
Next
en listview la tengo de esta forma
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
On Error Resume Next
If Lv_Emails.Items.Count < 1 Then
Exit Sub
End If
Dim Status As Boolean
For Each X As ListViewItem In Lv_Emails.Items If StatusCancel = True ThenExit For
End If
Application.DoEvents()
For Each TABE As TabPage In tabcontrol1.TabPagesIf X.Text.ToLower.Contains(TABE.Tag.ToLower) Then
Dim ListV As ListView = DirectCast(TABE.Controls(0), ListView)
Dim NewItem As New ListViewItem
NewItem.Text = X.Text
NewItem.ImageIndex = 4
ListV.Items.Add(NewItem).EnsureVisible()
TABE.Text = TABE.Tag & " (" & ListV.Items.Count.ToString & ")"
X.SubItems(1).Text = TABE.Tag
X.SubItems(1).ForeColor = Color.Green
X.ImageIndex = 1
Status = TrueExit For
Else
Status = FalseEnd If
Next
X.EnsureVisible()
Next
lo que necesito es que los registros que contiene los dominios designados se me llene el datagrid.
Valora esta pregunta
0
