FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SheetView クラス : IsRowBound メソッド |
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 check if the column and row are bound?", "IsColumn/RowBound", 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"); } MessageBox.Show("Row 1 is bound = " + fpSpread1.ActiveSheet.IsRowBound(1).ToString() + " - Column 1 is bound = " + fpSpread1.ActiveSheet.IsColumnBound(1).ToString(), "IsColumn/RowBound", MessageBoxButtons.OK);
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) Dim dlg As DialogResult FpSpread1.ActiveSheet.DataAutoHeadings = False FpSpread1.ActiveSheet.DataMember = "Patients" da.Fill(ds) FpSpread1.ActiveSheet.DataSource = ds dlg = MessageBox.Show("Do you want to check if the column and row are bound?", "IsColumn/RowBound", 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") End If MessageBox.Show("Row 1 is bound = " & FpSpread1.ActiveSheet.IsRowBound(1).ToString() & " - Column 1 is bound = " & FpSpread1.ActiveSheet.IsColumnBound(1).ToString(), "IsColumn/RowBound", MessageBoxButtons.OK)