Torna al Thread

Dim bolOnLoad As Boolean Private Sub FrmVisualizzaBolle_Load(sender As Object, e As EventArgs) Handles MyBase.Load bolOnLoad = True RadioButton1.Checked = True Periodo() CaricaFornitori() bolOnLoad = False ComboBoxPeriodoBolla.Text = "Intero Anno" ComboBoxFornitore.Text = "Tutti i Fornitori" End Sub Private Sub CaricaFornitori() 'carico fornitori da mettere nella combo Dim SQLConnectionString As String Dim SQLConnection As New SqlConnection Dim dataset1 As New DataSet Dim cm As New SqlCommand Dim Fornitori As String = "ClientiFornitori" Dim da As New SqlDataAdapter SQLConnectionString = My.Settings.WeaGestDBConnectionString & "xxxxxx" SQLConnection.ConnectionString = SQLConnectionString SQLConnection.Open() cm.CommandText = "SELECT ID_Cliente, R_Cliente,R_Tipo FROM ClientiFornitori WHERE R_Tipo = 'F' ORDER BY R_Cliente" da.SelectCommand = cm da.SelectCommand.Connection = SQLConnection da.Fill(dataset1, Fornitori) ComboBoxFornitore.DataSource = dataset1.Tables(Fornitori) ComboBoxFornitore.DisplayMember = "R_Cliente" SQLConnection.Close() End Sub Private Sub Periodo() 'carico tutti i mesi dell'anno Dim intX As Integer ComboBoxPeriodoBolla.Items.Insert(0, "Intero Anno") For intX = 1 To 12 ComboBoxPeriodoBolla.Items.Insert(intX, UCase(MonthName(intX))) Next End Sub Private Sub caricabolle() ..............
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5