Visual Basic

Private Sub ctlGridItems_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ctlGridItems.CellEnter
mCurRow = e.RowIndex
If e.ColumnIndex = 6 Then
    call urRoutine
end if 

end sub 

Private Sub FillUnits()
       Dim mCls As lgCls = New lgCls

       Dim counter As Integer
       With MyDataGrid
           Dim cmb As New DataGridViewComboBoxCell
           For counter = 0 To mCls.List_AllMethods.Count - 1
               cmb.Items.Add(mCls.List_AllMethods.Item(counter).ToString())
           Next
           MyDataGrid(2, mCurRow) = cmb

       End With
   End Sub

   Private Sub MyDataGrid_CellEnter(ByVal sender As System.Object, _
      ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles MyDataGrid.CellEnter

       mCurRow = e.RowIndex

       If e.ColumnIndex = 6 Then

       End If

   End Sub

Public Class MyForm<br />
    Dim mCurRow As Integer

''in class
    Sub New(ByVal URS_VARIABLE As String)
         ''URS_VARIABLE = URSPROPERTY
          ''Here
    End Sub

Private Sub ctlGridItems_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ctlGridItems.CellEnter
mCurRow = e.RowIndex
If e.ColumnIndex = URS_COLUMNSNO Then
    call urRoutine
end if 

end sub 




	
=-=-=-=-=-- MyDataGrid(URS_COLUMN_No, mCurRow) = cmb =-=-=-=-=--=-=-=-=-=--

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