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