MESCIUS SPREAD for Windows Forms 15.0J
GetUnboundValue メソッド (SheetView)
使用例 

行インデックス
列インデックス
このシートのセルの非連結値を取得します。
構文
'宣言
 
Public Function GetUnboundValue( _
   ByVal row As Integer, _
   ByVal column As Integer _
) As Object
public object GetUnboundValue( 
   int row,
   int column
)

パラメータ

row
行インデックス
column
列インデックス

戻り値の型

非連結セルの値を含む Object
使用例
次のサンプルコードでは、このメンバを使用して、非連結セルのテキストを返しています。
string conStr = "Provider=Microsoft.JET.OLEDB.4.0;data source= " + Application.StartupPath + "\\Patients2000.mdb";
string sqlStr = "SELECT * FROM Patients"; 
System.Data.OleDb.OleDbConnection conn  = new System.Data.OleDb.OleDbConnection(conStr); 
DataSet ds = new DataSet(); 
System.Data.OleDb.OleDbDataAdapter da = new System.Data.OleDb.OleDbDataAdapter(sqlStr, conn);
fpSpread1.ActiveSheet.DataAutoSizeColumns = false; 
fpSpread1.ActiveSheet.DataMember = "Patients"; 
da.Fill(ds); 
fpSpread1.ActiveSheet.DataSource = ds;
DialogResult dlg;
dlg = MessageBox.Show("Do you want to get the value for the unbound cell?", "GetUnboundValue", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
    fpSpread1.ActiveSheet.AddUnboundRows(1, 2);
    fpSpread1.ActiveSheet.SetValue(2, 0, "Daly");
    fpSpread1.ActiveSheet.SetValue(2, 1, "John");
    fpSpread1.ActiveSheet.SetValue(2, 2, "111390");
    fpSpread1.ActiveSheet.SetValue(2, 3, "12 Courtney Place");
    label1.Text = "The value in the unbound cell is - " + fpSpread1.ActiveSheet.GetUnboundValue(2, 2);
}
Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source= " & Application.StartupPath & "\Patients2000.mdb"
Dim sqlStr As String = "SELECT * FROM Patients"
Dim conn As New System.Data.OleDb.OleDbConnection(conStr)
Dim ds As DataSet = New DataSet()
Dim da As New System.Data.OleDb.OleDbDataAdapter(sqlStr, conn)
FpSpread1.ActiveSheet.DataAutoHeadings = False
FpSpread1.ActiveSheet.DataMember = "Patients"
da.Fill(ds)
FpSpread1.ActiveSheet.DataSource = ds
Dim dlg As DialogResult
dlg = MessageBox.Show("Do you want to get the value for the unbound cell?", "GetUnboundValue", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
    FpSpread1.ActiveSheet.AddUnboundRows(1, 2)
    FpSpread1.ActiveSheet.SetValue(2, 0, "Daly")
    FpSpread1.ActiveSheet.SetValue(2, 1, "John")
    FpSpread1.ActiveSheet.SetValue(2, 2, "111390")
    FpSpread1.ActiveSheet.SetValue(2, 3, "12 Courtney Place")
    Label1.Text = "The value in the unbound cell is - " & FpSpread1.ActiveSheet.GetUnboundValue(2, 2)
End If
参照

SheetView クラス
SheetView メンバ
IUnboundRowSupport インタフェース

開発者ガイド

非連結行の追加
列とフィールドの連結のカスタマイズ
SheetViewクラスを使用

 

 


© MESCIUS inc. All rights reserved.