' ******************************************************
' カラムの名称変更
' ******************************************************
Public Sub SetColumnName(ByVal strName As String, ByVal strNewName As String)

	Me.Columns(strName).Name = strNewName

End Sub
Public Sub SetColumnName(ByVal nIndex As Integer, ByVal strName As String)

	Me.Columns(nIndex).HeaderText = strName

End Sub