大家看仪下 散分解决方法

大家看仪下 散分
当你CLICK事件后   在单击他就回在原来的记录下   在继续添加记录~~

我想     在下次CLICK事件开始前   清除以前的记录怎么弄啊~  

各位大哥大街~~

Private   Sub   Command3_Click()
On   Error   Resume   Next
Dim   strsql   As   String

MSFGrid2.AllowBigSelection   =   True
strsql   =   "select   *   from   cs_manager   where   1=1 "
If   Combo1.Enabled   =   True   Then   strsql   =   strsql   &   "   and   mdan= ' "   &   Trim(Combo1.Text)   &   " ' "
If   Combo2.Enabled   =   True   Then   strsql   =   strsql   &   "   and   mddj= "   &   Trim(Combo2.Text)   &   " "
If   Combo3.Enabled   =   True   Then   strsql   =   strsql   &   "   and   mdper= ' "   &   Trim(Combo3.Text)   &   " ' "
If   Combo4.Enabled   =   True   Then   strsql   =   strsql   &   "   and   mdnum= "   &   Trim(Combo4.Text)   &   " "
If   DTPicker1.Enabled   =   True   Then   strsql   =   strsql   &   "   and   mdtime= "   &   DTPicker1.Value   &   " "

If   runsql(strsql)   =   True   Then
        If   rct.EOF   Then   Exit   Sub
        rct.MoveFirst

            With   MSFGrid2
                Do   While   Not   rct.EOF
       
                  .AddItem   " "
                  .Row   =   .Rows   -   2
                  .Col   =   0:
                  .Text   =   rct!mdan
                  .Col   =   1
                  .Text   =   rct!mdpro
                  .Col   =   2
                  .Text   =   rct!mdnum
                  .Col   =   3
                  .Text   =   rct!mddj
                  .Col   =   4
                  .Text   =   rct!mdtime
                  .Col   =   5
                  .Text   =   rct!mdper
                  rct.Update
                  rct.MoveNext
                 
                  Loop
              End   With
Else
End   If

End   Sub


[解决办法]
Private Sub Command3_Click()
On Error Resume Next
Dim strsql As String

MSFGrid2.AllowBigSelection = True
MSFGrid2.rows=1 '这里
strsql = "select * from cs_manager where 1=1 "
If Combo1.Enabled = True Then strsql = strsql & " and mdan= ' " & Trim(Combo1.Text) & " ' "
If Combo2.Enabled = True Then strsql = strsql & " and mddj= " & Trim(Combo2.Text) & " "
If Combo3.Enabled = True Then strsql = strsql & " and mdper= ' " & Trim(Combo3.Text) & " ' "
If Combo4.Enabled = True Then strsql = strsql & " and mdnum= " & Trim(Combo4.Text) & " "
If DTPicker1.Enabled = True Then strsql = strsql & " and mdtime= " & DTPicker1.Value & " "

If runsql(strsql) = True Then
If rct.EOF Then Exit Sub
rct.MoveFirst

With MSFGrid2
Do While Not rct.EOF

.AddItem " "
.Row = .Rows - 2
.Col = 0:
.Text = rct!mdan
.Col = 1
.Text = rct!mdpro
.Col = 2
.Text = rct!mdnum
.Col = 3
.Text = rct!mddj
.Col = 4
.Text = rct!mdtime
.Col = 5
.Text = rct!mdper
rct.Update
rct.MoveNext

Loop
End With
Else
End If

End Sub