|
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
| |