'**********先将其set datagrid1.DataSource=nothing后,再绑定
Public Rs_Jc_Xsfp_Sp As New ADODB.Recordset    With Rs_Jc_Xsfp_Sp
        If .State = adStateOpen Then
            .Close
        End If
        .ActiveConnection = adoCN
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockBatchOptimistic
        .Source = "SELECT * FROM Jc_Xsfp_Sp WHERE PINVOICE='" & Trim(W_Jc_Xsfp.Text1(0).Text) & "'ORDER BY ID"
        .Open
        .Sort = "ID"
    End With    Set W_Jc_Xsfp.DataGrid1.DataSource = Rs_Jc_Xsfp_Sp

解决方案 »

  1.   

    http://www.wzjcw.net/vbgood/taishan/index.html的几个示例可以参考
      

  2.   

    没有反应啊,我的代码如下:
      Set rsMy = New Recordset
      rsMy.Open "Select * From Employees", cnMy, adOpenStatic 'cnMy是已经打开的连接
      Set DataGrid1.DataSource = Nothing '加了这句也不行
      Set DataGrid1.DataSource = rsMy
      

  3.   

    实际上,你只需要
    myRs.CursorLocation = adUseClient
      

  4.   

    对了!就是少了myRs.CursorLocation = adUseClient。
    多谢各位!