'Declaration Property DataSource As Object
'Usage Dim instance As IDataSourceSupport Dim value As Object instance.DataSource = value value = instance.DataSource
object DataSource {get; set;}
'Declaration Property DataSource As Object
'Usage Dim instance As IDataSourceSupport Dim value As Object instance.DataSource = value value = instance.DataSource
object DataSource {get; set;}
FarPoint.Win.Spread.Model.IDataSourceSupport dss; string conStr = "Provider=Microsoft.JET.OLEDB.4.0;data source= " + Application.StartupPath + "\\Patients2000.mdb"; string sqlStr = "SELECT * FROM Patients"; string sqlStr1 = "SELECT * FROM Appointment"; System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(conStr); DataSet ds = new DataSet(); System.Data.OleDb.OleDbDataAdapter daCust = new System.Data.OleDb.OleDbDataAdapter(sqlStr, conn); daCust.Fill(ds, "Patients"); System.Data.OleDb.OleDbDataAdapter daOrder = new System.Data.OleDb.OleDbDataAdapter(sqlStr1, conn); daOrder.Fill(ds, "Appointment"); dss = (FarPoint.Win.Spread.Model.IDataSourceSupport)fpSpread1.ActiveSheet.Models.Data; dss.DataSource = ds; dss.DataMember = "Appointment"; fpSpread1.ActiveSheet.Models.Data = (FarPoint.Win.Spread.Model.ISheetDataModel)dss;
Dim dss As FarPoint.Win.Spread.Model.IDataSourceSupport Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source= " & Application.StartupPath & "\Patients2000.mdb" Dim sqlStr As String = "SELECT * FROM Patients" Dim sqlStr1 As String = "SELECT * FROM Appointment" Dim conn As New System.Data.OleDb.OleDbConnection(conStr) Dim ds As DataSet = New DataSet() Dim daCust As New System.Data.OleDb.OleDbDataAdapter(sqlStr, conn) daCust.Fill(ds, "Patients") Dim daOrder As New System.Data.OleDb.OleDbDataAdapter(sqlStr1, conn) daOrder.Fill(ds, "Appointment") dss = FpSpread1.ActiveSheet.Models.Data dss.DataSource = ds dss.DataMember = "Appointment" FpSpread1.ActiveSheet.Models.Data = dss