#2
cwa99582022-05-20 16:00
|
怎么我一点"下一条"程序就卡死了
Set RS = New ADODB.Recordset '新建一个recordset
Set lsRS = New ADODB.Recordset
RS.CursorType = adOpenStatic
RS.CursorLocation = adUseClient
RS.LockType = adLockPessimistic
RS.Open "SELECT * FROM xb ORDER BY 项目名称 ASC", Con
lsRS.CursorType = adOpenStatic
lsRS.CursorLocation = adUseClient
lsRS.LockType = adLockPessimistic
lsRS.Open "SELECT * FROM xb1", Con
For i = 0 To 136
Set Text1(i).DataSource = RS
Text1(i).Locked = True
Next
Text1(0).DataField = "项目名称"
Text1(1).DataField = "名称"
Text1(2).DataField = "型号"
Text1(3).DataField = "制造编号"
Text1(4).DataField = "制造厂家"
Text1(5).DataField = "额定电压G"
Text1(6).DataField = "额定电压D"
Text1(7).DataField = "容量"
Text1(8).DataField = "结线组别"
Text1(9).DataField = "冷却方式"
Text1(10).DataField = "出厂日期"
Text1(11).DataField = "zzg1AB"
Text1(12).DataField = "zzg1AC"
.........
Text1(136).DataField = "J结论"
Set 箱变明细表.DataSource = RS
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Index
Case 1
RS.MoveFirst
Case 2
RS.MovePrevious
If RS.BOF Then
RS.MoveFirst
End If
Case 3
RS.MoveNext
If RS.EOF Then
RS.MoveLast
End If
Case 4
RS.MoveLast
[此贴子已经被作者于2022-5-20 13:33编辑过]