Torna al Thread
Private Sub caricabolle()
Try
DataGridViewBolle.DataSource = Nothing
Dim SQLConnectionString As String
Dim SQLConnection As New SqlConnection
Dim dataset1 As New DataSet
SQLConnectionString = My.Settings.WeaGestDBConnectionString & "xxxxxxxxx"
SQLConnection.ConnectionString = SQLConnectionString
SQLConnection.Open()
Dim cm As New SqlCommand
Dim sql As String = "SELECT MovimentiMagazzino.ID_Movimenti,MovimentiMagazzino.R_NumeroDocumento,MovimentiMagazzino.R_DataDocumento" & _
",MovimentiMagazzino.R_AnnoDocumento, MovimentiMagazzino.ID_Fornitore,ClientiFornitori.R_Cliente,MovimentiMagazzino.R_NumeroDettagli" & _
",MovimentiMagazzino.R_ImponibileIva,MovimentiMagazzino.R_ImportoIva,MovimentiMagazzino.R_TotaleDocumento,MovimentiMagazzino.R_RifFattura" & _
",MovimentiMagazzino.R_DataFattura,MovimentiMagazzino.R_Saldata FROM MovimentiMagazzino INNER JOIN ClientiFornitori ON ClientiFornitori.ID_Cliente = MovimentiMagazzino.ID_Fornitore"
Dim where As String = ""
If ComboBoxPeriodoBolla.Text <> "Intero Anno" Then
If where.Length > 0 Then where = where & " AND "
where = where & "Month(R_DataDocumento) = " & (ComboBoxPeriodoBolla.SelectedIndex().ToString) & ""
End If
If ComboBoxFornitore.Text <> "Tutti i Fornitori" Then
If where.Length > 0 Then where = where & " AND "
where = where & "MovimentiMagazzino.ID_Fornitore = " & (ComboBoxFornitore.Text) & ""
End If
Dim query As String = sql
If where.Length > 0 Then query = sql & " WHERE " & where
cm.CommandText = sql
Dim da As New SqlDataAdapter
da.SelectCommand = cm
da.SelectCommand.Connection = SQLConnection
Dim tablename2 As String = "MovimentiMagazzino"
da.Fill(dataset1, tablename2)
DataGridViewBolle.DataSource = dataset1
DataGridViewBolle.DataMember = tablename2
SQLConnection.Close()
Dim Font As New Font(DataGridViewBolle.DefaultCellStyle.Font.FontFamily, 10, FontStyle.Regular)
Dim FontTestata As New Font(DataGridViewBolle.DefaultCellStyle.Font.FontFamily, 8, FontStyle.Regular)
Me.SuspendLayout()
With Me.DataGridViewBolle
.RowHeadersVisible = False
.Columns("ID_Movimenti").Visible = False
.Columns("R_NumeroDocumento").HeaderText = ("Num Doc")
.Columns("R_NumeroDocumento").DefaultCellStyle.BackColor = Color.Silver
.Columns("R_NumeroDocumento").DefaultCellStyle.ForeColor = Color.White
.Columns("R_NumeroDocumento").DefaultCellStyle.Font = Font
.Columns("R_NumeroDocumento").AutoSizeMode = DataGridViewAutoSizeColumnMode.Displayed