看看这个:rs_hwdan.CursorLocation = adUseClient rs_hwdan.Open "select * from hwdan", db, adOpenDynamic, adLockBatchOptimistic SET DATAGRID1.DATASOURCE=RS_HWDAN
With Rs_J_Cktzd_Sp If .State = adStateOpen Then .Close End If .ActiveConnection = adoCN .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockBatchOptimistic .Source = "SELECT * FROM J_Cktzd_Sp WHERE hth='" & W_J_Cktzd.Text1(14).Text & "' order by id " .Open .Sort = "id" End With Set DataGrid1.DataSource = Rs_J_Cktzd_Sp
rs_hwdan.Open "select * from hwdan", db, adOpenDynamic, adLockBatchOptimistic
SET DATAGRID1.DATASOURCE=RS_HWDAN
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = adoCN
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Source = "SELECT * FROM J_Cktzd_Sp WHERE hth='" & W_J_Cktzd.Text1(14).Text & "' order by id "
.Open
.Sort = "id"
End With
Set DataGrid1.DataSource = Rs_J_Cktzd_Sp