LboxGrid メソッド (1)


  GetColumnText、GetColumnValue



  
' ******************************************************
' カラムデータ取得
' ******************************************************
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
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ