Adds the unbound row to the data source for a sheet.
Syntax
Visual Basic (Usage) | Copy Code |
---|
Dim instance As SheetView
Dim row As Integer
Dim autoFillData As Boolean
instance.AddRowToDataSource(row, autoFillData) |
Parameters
- row
- Row index at which to add row
- autoFillData
- Whether to automatically fill the row with data
Example
This example adds two unbound rows to the active sheet, and then adds them to the data source.
C# | Copy Code |
---|
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);
} |
Visual Basic | Copy Code |
---|
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 |
Requirements
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2
See Also