Public Sub SetColumnValue(ByVal nRow As Integer, _
ByVal strName As String, ByVal value As Object)
Me.Rows(nRow).Cells(strName).Value = value
End Sub
Public Sub SetColumnValue(ByVal nRow As Integer, _
ByVal nCol As Integer, ByVal value As Object)
Me.Rows(nRow).Cells(nCol).Value = value
End Sub
Public Sub SetColumnValue(ByVal strName As String, ByVal value As Object)
Me.Rows(nCurrentRow).Cells(strName).Value = value
End Sub
Public Sub SetColumnValue(ByVal nCol As Integer, ByVal value As Object)
Me.Rows(nCurrentRow).Cells(nCol).Value = value
End Sub
Public Sub SetColumnTag(ByVal nRow As Integer, _
ByVal strName As String, ByVal value As Object)
Me.Rows(nRow).Cells(strName).Tag = value
End Sub
Public Sub SetColumnTag(ByVal nRow As Integer, _
ByVal nCol As Integer, ByVal value As Object)
Me.Rows(nRow).Cells(nCol).Tag = value
End Sub
Public Sub SetColumnTag(ByVal strName As String, ByVal value As Object)
Me.Rows(nCurrentRow).Cells(strName).Tag = value
End Sub
Public Sub SetColumnTag(ByVal nCol As Integer, ByVal value As Object)
Me.Rows(nCurrentRow).Cells(nCol).Tag = value
End Sub
Public Function GetColumnTag(ByVal strName As String) As Object
GetColumnTag = Me.Rows(nCurrentRow).Cells(strName).Tag
End Function
Public Function GetColumnTag(ByVal nCol As Integer) As Object
GetColumnTag = Me.Rows(nCurrentRow).Cells(nCol).Tag
End Function
Public Function GetColumnTag(ByVal nRow As Integer, _
ByVal strName As String) As Object
GetColumnTag = Me.Rows(nRow).Cells(strName).Tag
End Function
Public Function GetColumnTag(ByVal nRow As Integer, _
ByVal nCol As Integer) As Object
GetColumnTag = Me.Rows(nRow).Cells(nCol).Tag
End Function
Public Function GetColumnValue(ByVal strName As String) As Object
GetColumnValue = Me.Rows(nCurrentRow).Cells(strName).Value
End Function
Public Function GetColumnValue(ByVal nCol As Integer) As Object
GetColumnValue = Me.Rows(nCurrentRow).Cells(nCol).Value
End Function
Public Function GetColumnValue(ByVal nRow As Integer, _
ByVal strName As String) As Object
GetColumnValue = Me.Rows(nRow).Cells(strName).Value
End Function
Public Function GetColumnValue(ByVal nRow As Integer, _
ByVal nCol As Integer) As Object
GetColumnValue = Me.Rows(nRow).Cells(nCol).Value
End Function
Public Function GetColumnBoolean(ByVal strName As String) As Boolean
GetColumnBoolean = CType(Me.Rows(nCurrentRow).Cells(strName).Value, Boolean)
End Function
Public Function GetColumnBoolean(ByVal nCol As Integer) As Boolean
GetColumnBoolean = CType(Me.Rows(nCurrentRow).Cells(nCol).Value, Boolean)
End Function
Public Function GetColumnBoolean(ByVal nRow As Integer, _
ByVal strName As String) As Boolean
GetColumnBoolean = CType(Me.Rows(nRow).Cells(strName).Value, Boolean)
End Function
Public Function GetColumnBoolean(ByVal nRow As Integer, _
ByVal nCol As Integer) As Boolean
GetColumnBoolean = CType(Me.Rows(nRow).Cells(nCol).Value, Boolean)
End Function