Private Sub Form_Load()
Dim Rs As New ADODB.Recordset
If Rs.State = 1 Then Rs.Close
RS.CursorLocation=adUseClient {新加的Code}
Rs.Open "select distinct nvName from kManage", DBconn, adOpenStatic, adLockPessimistic
Set dDataGrid.DataSource = Rs
End Sub--------------------------------------------------
Try It
Dim Rs As New ADODB.Recordset
If Rs.State = 1 Then Rs.Close
RS.CursorLocation=adUseClient {新加的Code}
Rs.Open "select distinct nvName from kManage", DBconn, adOpenStatic, adLockPessimistic
Set dDataGrid.DataSource = Rs
End Sub--------------------------------------------------
Try It
再问两个问题:
datagrid控件只有在 adOpenStatic 下才能正常使用吗?还有:
datagrid,msflexgrid,mshflexgrid这三个控件有什么区别?用哪个比较好?