Visual Basic

Public Function FillUnit(ByVal mCmbBox As ComboBox) As Boolean
        Dim _Fill_SUnit As String = "select unit_Name from Unit_Master"
        Dim con As New SqlConnection(gConnectionString)

        Dim cmd As New SqlCommand(_Fill_SUnit), con)
        con.Open()
        Dim dr As SqlDataReader = cmd.ExecuteReader()
        mCmbBox.Items.Add("")
        While dr.Read()
            mCmbBox.Items.Add(dr.Item("Unit_Name").ToString)
        End While
        dr.Close()
        con.Close()
        Return True
    End Function


 Function fillCombos() As Boolean
                    call FillUnit("ComboBox")
                Return True
    End Function

       
form load ()
        If fillCombos() = False Then
            lblStatus.Text = Err_Load
        End If
        Dim dgvcboOperator As New DataGridViewComboBoxColumn
        With dgvcboOperator
            .DataPropertyName = "ColOperator" : .DataSource = cboOperator.Items : .HeaderText = "Sub Unit"
        End With
        ctlGrid.Columns.Remove("ColOperator") : ctlGrid.Columns.Insert(2, dgvcboOperator)
end sub

Bob Beaubien wrote:

is this posible with streamWriter

Buggedforever wrote:

DoEvents

Buggedforever wrote:

On Error GoTo ERR_ROUTINE

Buggedforever wrote:

GoTo SUBEND

Mycroft Holmes wrote:

I was not expecting VB6

Shaahinm wrote:

can someone help me?

Dim s As Decimal = 0.6
Private Sub nupS_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nupS.ValueChanged
        If (nupS.Value Mod s) = 0 Then
            nupS.Value = CDec(CInt(nupS.Value))
            s += 1
        End If
End Sub

0.00
0.15
0.30
0.45
0.60 assume this magically changes into 1.00
1.15
1.30
1.45
1.60 magic required ==> 2.0

2.30
2.15
2.00
1.85 assume this magically changes into 1.45
1.30
1.15
1.00
0.85 magic required ==> 0.45
0.30
0.15
0.00

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Shaahinm wrote:

the problem is that I am not able to find out whether user is increasing the value or decreasing it

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.