FarPoint.Win.Spread Assembly > FarPoint.Win.Spread Namespace > SheetView Class : AddRowToDataSource Method |
'Declaration Public Sub AddRowToDataSource( _ ByVal row As Integer, _ ByVal autoFillData As Boolean _ )
'Usage Dim instance As SheetView Dim row As Integer Dim autoFillData As Boolean instance.AddRowToDataSource(row, autoFillData)
public void AddRowToDataSource( int row, bool autoFillData )
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 add a row to the data source?", "AddRowToDataSource", 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"); fpSpread1.ActiveSheet.AddRowToDataSource(2, true); }
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 add a row to the data source?", "AddRowToDataSource", 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") FpSpread1.ActiveSheet.AddRowToDataSource(2, True) 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