|
' ******************************************************
' カラムデータ取得
' ******************************************************
Public Function GetColumnText(ByVal strName As String) As String
GetColumnText = Me.Rows(nCurrentRow).Cells(strName).Value
End Function
Public Function GetColumnText(ByVal nCol As Integer) As String
GetColumnText = Me.Rows(nCurrentRow).Cells(nCol).Value
End Function
Public Function GetColumnText(ByVal nRow As Integer, _
ByVal strName As String) As String
GetColumnText = Me.Rows(nRow).Cells(strName).Value
End Function
Public Function GetColumnText(ByVal nRow As Integer, _
ByVal nCol As Integer) As String
GetColumnText = Me.Rows(nRow).Cells(nCol).Value
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
| |