为什么不能清空???
Private Sub Command3_Click()
'On Error Resume Next
Dim strsql As String
MSF2.Visible = True
MSF2.Clear
MSF2.Row = 1

MSF2.AllowBigSelection = True


lvw1.Visible = False

If Command3.Caption = "查看记录 " Then
lvw1.Visible = False
MSF2.Visible = True
Command3.Caption = "切换 "
connectSQL
strsql = "select a.cname,a.cbir,a.cwork,a.cdan,b.cdtime,b.cctel,b.cliwu from cs_info a inner join cs_ding b on a.ctel=b.ctel ":
If runsql(strsql) = True Then
If rct.EOF Then Exit Sub
rct.MoveFirst

End If

Do While Not rct.EOF

With MSF2
.AddItem " "
.Row = .Rows - 2
.Col = 0: .Text = rct!cname
.Col = 1: .Text = rct!cbir
.Col = 2: .Text = rct!cwork
.Col = 3: .Text = rct!cdan
.Col = 4: .Text = rct!cdtime
.Col = 5: .Text = rct!cctel
.Col = 6: .Text = rct!cliwu

rct.MoveNext

End With

Loop
ElseIf Command3.Caption = "切换 " Then
lvw1.Visible = True
MSF2.Visible = False
Command3.Caption = "查看记录 "
End If
End Sub
要求每按一次记录从头开始写入! 为什么总是不能晴空> > ???

[解决办法]
为什么总是不能晴空> > ???
是，最近天很热。自己顶吧。
[解决办法]
都不知道你在说什么问题,怎么回答?
[解决办法]
蹭