我编写了如下代码进行数据连接,可是在结果中没有数据显示出来,但在控件上显示出了和数据条数一样多的行,请各位高手帮忙解决!谢谢!
str = "select * from rydlxx order by 人员编号 "
mrc.Open str, db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = mrc
DataGrid1.Columns(0).DataField = mrc!人员编号
DataGrid1.Columns(1).DataField = mrc!账户名
DataGrid1.Columns(2).DataField = mrc!人员类别
Set mrc = Nothing
str = "select * from rydlxx order by 人员编号 "
mrc.Open str, db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = mrc
DataGrid1.Columns(0).DataField = mrc!人员编号
DataGrid1.Columns(1).DataField = mrc!账户名
DataGrid1.Columns(2).DataField = mrc!人员类别
Set mrc = Nothing
mrc.Open str, db, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = mrc
DataGrid1.Columns(0).DataField = mrc!人员编号
DataGrid1.Columns(1).DataField = mrc!账户名
DataGrid1.Columns(2).DataField = mrc!人员类别
可以不要。如果想自定义布局,可以实现编辑一下 DataGrid 属性。