Dim rs6 As New Recordset
Dim SQL3 As String
Dim i, j, m, n As Integer
If rs6.State = 1 Then
rs6.Close
End If
SQL3 = "select TOP 0 * from EHGpofact "
rs6.CursorLocation = adUseClient
rs6.Open SQL3, pubStrConn, adOpenDynamic, adLockBatchOptimistic
Set rss = MSHFlexGrid3.DataSource
Set rs6 = rss.Clone
For m = 1 To rss.RecordCount
rs6.Delete
rs6.UpdateBatch
rs6.MoveNext
Next
为什么运行到
rs6.Delete
rs6.UpdateBatch
提示 current recordset does not support updating,this maybe a limitation of provider or of the selected locktype
请各位指点,哪里出了问题。原来还可以运行的。