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 W_J_Cktzd.DataGrid1.DataSource = 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 W_J_Cktzd.DataGrid1.DataSource = Rs_J_Cktzd_Sp
另外你看一下DE里面COMMAND的连接属性,把锁定方式改成开放式看看