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
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5