程序很简单,就是form里放了一个fpspread,用来显示access里的表。下面是load里的代码
Dim mainform As New mainform
Me.MdiParent = mainform
d_set = New DataSet
Dim oledb_da As New OleDb.OleDbDataAdapter("select * from 专家名录", d_conn)
oledb_da.Fill(d_set, "专家名录")
Me.BindingSource.DataSource = d_set.Tables("专家名录")
Me.BindingNavigator1.BindingSource = Me.BindingSource
Me.FpSpread1.Sheets(0).DataSource = Me.BindingSource
转成类库是因为原的项目添加了新的要求,涉及的form有点多,放在一起不好管理,所以想分成不同的dll进行管理 |