'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) Dim CN As New ADODB.Connection '定义数据库的连接 Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = Rs DataGrid1.Columns(2).Locked = True
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
DataGrid1.Columns(2).Locked = True
锁定第二列,不能编辑
DataGrid1.Columns(2).Locked = True
你将其这列锁定就可以了!!!
DataGrid1.Columns(2).Locked = True
奇怪啊,我的DataGrid1怎么没有Columns()这个属性?
问题解决后即刻给分!!!!!
装一下vb sp5