Visual Basic

 Protected Sub displayRpt(ByVal sRptName As String, ByVal ds As DataSet, ByVal crParamFields As ParameterFields)
        Dim RptPath As String
        Dim rpt As New ReportDocument


' I store my reports in a folder called, "RptSource", one level down from the main website.

        RptPath = Server.MapPath("~/Rptsource")

        rpt.Load(RptPath + "\" + sRptName)

        rpt.SetDataSource(ds)

' Use the following only if you are passing parameters to the report.  In my example, I am not passing parameters
        'CrystalReportViewer1.ParameterFieldInfo = crParamFields

        CrystalReportViewer1.HyperlinkTarget = "_blank"  ' This causes the report to pop into a new browser.
        CrystalReportViewer1.DisplayGroupTree = False
        CrystalReportViewer1.HasToggleGroupTreeButton = False
        CrystalReportViewer1.HasDrillUpButton = False
        CrystalReportViewer1.HasViewList = False
        CrystalReportViewer1.HasSearchButton = False
        CrystalReportViewer1.EnableDrillDown = False    ' hmmm
        CrystalReportViewer1.Height = 800
        CrystalReportViewer1.Width = 900

        CrystalReportViewer1.ReportSource = rpt
        'CrystalReportViewer1.RefreshReport()
End Sub

 Sub FillUnits()
    Dim mCls As YourClass = New YourClass
    Dim i As Integer
    With ctlGrid
        Dim cmb As New DataGridViewComboBoxCell
            For i = 0 To record.Count - 1
                cmb.Items.Add(mCls.List_All.Item(i).Name.ToString)
            Next
        ctlGrid(ColumnNo, CurrentRow) = cmb
    End With
End Sub

Public Function List_All() As List(Of YourClass)
     Dim _Fill As String = "select Name from Table"
     Dim con As New SqlConnection(gConnectionString)
     Dim cmd As New SqlCommand(_Fill, con)
     Dim dList As New List(Of YourClass)
     con.Open()
     Dim dr As SqlDataReader = cmd.ExecuteReader()
     While dr.Read()
         dList.Add(New Cls_Unit_Master(dr.Item("Name").ToString))
     End While
     dr.Close()
     con.Close()
     Return dList
 End Function

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