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 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8
See Also