FarPoint.Win.Spread Assembly > FarPoint.Win.Spread Namespace > SheetView Class : GetUnboundValue Method |
'Declaration Public Function GetUnboundValue( _ ByVal row As Integer, _ ByVal column As Integer _ ) As 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
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8