救我啊，一个MSFLEXGRID控件的问题

Question

rs1.Open "select * from cjob where " & tj & "", cnn, adOpenDynamic, adLockOptimistic, adCmdText
Set MSFlexGrid1.DataSource = rs1
为什么总提示什么WITH块出错啊
用DATAGRID就没有错

Answer 1

if rs1.state=adstateopen then rs1.close
rs1.open "select * from cjob where " & jt & "",cnn,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=rs1
set rs1=nothing

Answer 2

MSFlexGrid控件不能通过记录集付值，换成mshflexgrid

Answer 3

小林哥，MSHFLESGRID怎么使啊，直接赋数据源就行吗？

Answer 4

怎么让MSHFLESGRID自动按数据库的字段长度来设置呢？

Answer 5

rs1.Open "select * from cjob where " & tj & "", cnn, adOpenDynamic, adLockOptimistic, adCmdText
Set MSHFlexGrid1.DataSource = rs1

Answer 6

MSHFLESGRID没有自动调整功能，如果想列宽正好适合显示内容需算出最大字段长度，挺麻烦的，如果没太大必要给它一个大概值算了，或者保存前一次用户调整的字段宽度

Answer 7

dim rs1 new adodb.recordset而不是
dim rs1 adodb.recordset