Очистка данных

[tanyuxxxa]

В Visual B. кнопка поиска информации..как сделать чтобы данные очищались после того как нажимаешь на нее второй раз!?

Private Sub Command7_Click()
k = 1
Seek #1, k
Do While Not EOF(1)
Get #1, k, bd
If InStr(bd.T, Text12.Text) <> 0 Or _
 InStr(bd.Dolshnost, Text12.Text) <> 0 Or _
 InStr(bd.Cex, Text12.Text) <> 0 Or _
 InStr(bd.Hio, Text12.Text) <> 0 Or _
 InStr(bd.OthisleniaP, Text12.Text) <> 0 Or _
 InStr(bd.OthisleniaS, Text12.Text) <> 0 Or _
 InStr(bd.Dop, Text12.Text) <> 0 Or _
 InStr(bd.Premya, Text12.Text) <> 0 Or _
 InStr(bd.Yger, Text12.Text) <> 0 Then List1.AddItem k & "   " & Trim(bd.T) & "   " & Trim(bd.Dolshnost) & "   " & Trim(bd.Cex) & "   " & Trim(bd.Hio) & "   " & Trim(bd.OthisleniaP) & "   " & Trim(bd.OthisleniaS) & "   " & Trim(bd.Oklad) & "   " & Trim(bd.Dop) & "   " & Trim(bd.Premya) & "   " & Trim(bd.Yger)

k = k + 1
Loop

[Stilet]

Бейсик не знаю но думаю что нужно что-то вроде:

Private Sub Command7_Click()
 List1.Clear
...

[tanyuxxxa]

Нет(там нужно что то вроде очистки переменной....

[Stilet]

Поясняй подробнее.

[ViktorR]

Помечтал, но так и не понял.

Для контроля нажатий на кнопку можно воспользоваться меткой (Label).
Размещаем где нибудь в уголке формы и делаем невидимой:

Label1.Visibl = False
Label1.Caption = ""

В первых строках п/п контролируем содержимое метки:

if Label1.Caption = "5" Then
  ' выполняем необходимые действия по инициализации полей
EndIf

При выходе из п/п меняем содержимое метки:
Например:

Label1.Caption = "5"

При следующем вызове п/п сработает контроль и ...

Возможно, что это не то, и не самый лучший способ, но ...