1,453
社区成员
发帖
与我相关
我的任务
分享有关spread控件,我用recordset对象怎么显示到spread上？
有关spread控件,我用recordset对象怎么显示到spread上？
...全文
请发表友善的回复…
发表回复
zhengoodman 2004-06-21
- 打赏
- 举报
先mark吧.
zengjun1980 2004-06-21
- 打赏
- 举报
没人可以回答吗？？？？
zengjun1980 2004-06-21
- 打赏
- 举报
大家来回答一下嘛，有什么其它的方法也可以说一下啊？
zengjun1980 2004-06-20
- 打赏
- 举报
我这样：
Dim Cn As New ADODB.Connection
Dim Re As New ADODB.Recordset
Cn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=ProjectModel2;Data Source=ZENGJUN"
Re.Open "SELECT * FROM tabPerson", Cn
fpSpread1.Row = -1
fpSpread1.Col = 1
fpSpread1.DataField = "n_person_no"
fpSpread1.Col = 2
fpSpread1.DataField = "v_person_name"
fpSpread1.Col = 3
fpSpread1.DataField = "v_sex"
fpSpread1.Col = 4
fpSpread1.DataField = "v_dept_name"
fpSpread1.Col = 5
fpSpread1.DataField = "v_card_no"
Set fpSpread1.DataSource = Re
fpSpread1.MaxRows = 100
fpSpread1.Refresh
但是不行!
Dim Cn As New ADODB.Connection
Dim Re As New ADODB.Recordset
Cn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=ProjectModel2;Data Source=ZENGJUN"
Re.Open "SELECT * FROM tabPerson", Cn
fpSpread1.Row = -1
fpSpread1.Col = 1
fpSpread1.DataField = "n_person_no"
fpSpread1.Col = 2
fpSpread1.DataField = "v_person_name"
fpSpread1.Col = 3
fpSpread1.DataField = "v_sex"
fpSpread1.Col = 4
fpSpread1.DataField = "v_dept_name"
fpSpread1.Col = 5
fpSpread1.DataField = "v_card_no"
Set fpSpread1.DataSource = Re
fpSpread1.MaxRows = 100
fpSpread1.Refresh
但是不行!
