Me.bs.MoveFirst() ' loop------------------- ProgressBar1.Maximum = Me.bindingsource.Count Do While x <= Me.dataset.tbdatapegawai.Count My.Application.DoEvents() Progress_bar_percent = x / CInt(Me.bindingsource.Count) * 100 Me.persenLabel.Text = Progress_bar_percent.ToString & "%" 'this is only example. the data that has been calculate and ready to be stored var_1_pajak = 12.000 var_2_bruto = 5.000 var_3_potongan = 2.000 var_4_gasih = 1.500 var_5_potjabatan = 1.725 var_6_iuranpensiun = 900 'saving one data using stored proc (just insert data) Save_data() ProgressBar1.Value = x x = x + 1 Me.bindingsource.MoveNext() Loop
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)