DATAGRID TRIPLICANDO VALORES

THULLER 03/08/2010 18:13:55
#349325

Olá,

Tenho o Seguinte Código

Private Sub calendario_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles calendario.DateChanged
Dim Dia, Mes, Ano As String

Dia = calendario.SelectionStart.Day
Mes = calendario.SelectionStart.Month
Ano = calendario.SelectionStart.Year

If Mes.Length = 1 Then
Mes = [Ô]0[Ô] + Mes
End If
If Dia.Length = 1 Then
Dia = [Ô]0[Ô] + Dia
End If

Dim strData As String

strData = Dia + [Ô]/[Ô] + Mes + [Ô]/[Ô] + Ano


lblData2.Text = strData


Me.Produtos_StatusBindingSource.Filter = [Ô]Data_retirada = [ô][Ô] + strData + [Ô][ô] AND Status = [ô]Fechada[ô][Ô]
Me.Produtos_StatusTableAdapter.Fill(Me.BD_InTouchDataSet.Produtos_Status)

End Sub

Ele funciona, só que cada Item aparece 3 vezes. O que pode ser?

valeu