MESCIUS SPREAD for Windows Forms 17.0J サンプルコード集
追加する

コントロール上の行および列数はSheetViewクラスのRowCountプロパティまたはColumnCountプロパティによって定義されますが、同クラスメンバであるAddRowsメソッドやAddColumnsメソッド呼び出し等により、任意の箇所に追加することができます。

【実行例】

追加前

追加後イメージ

追加後

  • データベース連結時、AddRowsメソッド呼び出しを行った場合には接続されているデータソースに対しても行が自動的に追加されるため、例えば一意制約(主キーの設定)NULL制約を定義している場合には一般的なADO.NETの例外が発生する可能性があります。そのため、データベース連結時に行を追加したい場合は、SheetViewクラスのAddUnboundRowsメソッド呼び出しによって非連結行を追加し、各フィールドに対して適切な値を入力後、同クラスのAddRowToDataSourceメソッド呼び出しによってデータソースへの追加を行う必要があります。

 private void Form1_Load(object sender, System.EventArgs e)
 {

  //行数を3にします
  fpSpread1.ActiveSheet.RowCount = 3;

  fpSpread1.ActiveSheet.Columns[0].CellType = new FarPoint.Win.Spread.CellType.TextCellType();
  fpSpread1.ActiveSheet.SetText(0, 0, "1行目");
  fpSpread1.ActiveSheet.SetText(1, 0, "2行目");
  fpSpread1.ActiveSheet.SetText(2, 0, "3行目");

  fpSpread1.ActiveSheet.SetColumnWidth(0, 90);

 }

 private void button1_Click(object sender, System.EventArgs e)
 {

  //2行目に1行を追加します
  fpSpread1.ActiveSheet.AddRows(1, 1);
  fpSpread1.ActiveSheet.SetText(1, 0, "追加された行");

 }

 private void button2_Click(object sender, System.EventArgs e)
 {

  //2列目に1列を追加します
  fpSpread1.ActiveSheet.AddColumns(1, 1);
  fpSpread1.ActiveSheet.SetText(0, 1, "追加された列");

 }
 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

  '行数を3にします
  FpSpread1.ActiveSheet.RowCount = 3

  FpSpread1.ActiveSheet.Columns(0).CellType = New FarPoint.Win.Spread.CellType.TextCellType
  FpSpread1.ActiveSheet.SetText(0, 0, "1行目")
  FpSpread1.ActiveSheet.SetText(1, 0, "2行目")
  FpSpread1.ActiveSheet.SetText(2, 0, "3行目")

  FpSpread1.ActiveSheet.SetColumnWidth(0, 90)

 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  '2行目に1行を追加します
  FpSpread1.ActiveSheet.AddRows(1, 1)
  FpSpread1.ActiveSheet.SetText(1, 0, "追加された行")

 End Sub

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  '2列目に1列を追加します
  FpSpread1.ActiveSheet.AddColumns(1, 1)
  FpSpread1.ActiveSheet.SetText(0, 1, "追加された列")

 End Sub

 

 


© MESCIUS inc. All rights reserved.