Visual Basic

Imports System.Data
Imports System.Data.SqlClient
Public Class Cls_Unit_Master

    '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

    Public Function List_AllUnits() As List(Of Cls_Unit_Master)
        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)
        Dim dList As New List(Of Cls_Unit_Master)
        con.Open()
        Dim dr As SqlDataReader = cmd.ExecuteReader()
        While dr.Read()
            dList.Add(New Cls_Unit_Master(dr.Item("unit_Name").ToString))
        End While
        dr.Close()
        con.Close()
        Return dList
    End Function

End Class

Sub FillUnits()
        Dim mCls As DAL.Cls_Unit_Master = New DAL.Cls_Unit_Master
        
        Dim i As Integer
        With ctlGrid  --Grid Control
            Dim cmb As New DataGridViewComboBoxCell
               For i = 0 To mCls.List_AllUnits.Count - 1
                    cmb.Items.Add(mCls.List_AllUnits.Item(i).Unit_Name.ToString)
                Next
                        ctlGridItems(6, mCurRow) = cmb
        End With
    End Sub

Call FillUnits()

Sub New()
    End Sub
    Sub New(ByVal UName As String)
        _Unit_Name = UName
    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 = 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