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() ..............