VPF::Проверка на наличине набписи - Форум программистов

REVOLT

Дата 28.9.2004, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет

Господа программеры, я гляжу тут скучно. нет вопросов... И вот вас вопросик, чтобы не скучали...

Код


Private Sub DelRecMenu_Click()
  
  Dim Temp As Variant
  Dim Part As String, Name As String
  If MsgBox("Вы уверены, что хотите удалить запись?", 4 + 32 + 256 + 0, KatalogForm.Caption) = vbNo Then Exit Sub
  Part = "": Name = ""
 > If MainTab.Tab = 0 Then
 >   If List2.ListCount = 1 Then
 >    Part = List1.List(List1.ListIndex - 1): Name = List2.List(0)
>    Else
 >     Part = List1.List(List1.ListIndex): Name = List2.List(List2.ListIndex - 1)
 >  End If
  >  ProgData.Recordset.Delete: Call UpdateProgList(Part, Name)
  ElseIf MainTab.Tab = 1 Then
    If List4.ListCount = 1 Then
      Part = List3.List(List3.ListIndex - 1): Name = List4.List(0)
    Else
      Part = List3.List(List3.ListIndex): Name = List4.List(List4.ListIndex - 1)
    End If
    SiteData.Recordset.Delete: Call UpdateSiteList(Part, Name)
  End If
  If MainTab.Tab = 3 Then
    If List6.ListCount = 1 Then
      Part = List5.List(List5.ListIndex - 1): Name = List6.List(0)
    Else
      Part = List5.List(List5.ListIndex): Name = List6.List(List6.ListIndex - 1)
          
          Temp = List6.ListIndex
          If Temp = List6.ListCount Then
          List6.ListIndex = Temp - 1
          Else
          List6.ListIndex = Temp
          End If
    End If
      ProdData.Recordset.Delete: Call UpdateProDList(Part, Name)
    End If
End Sub

Обратите внимание на > Там нужно сделать проверку, и есле List2 пуст то вывести сообщение "123"

-Mikle-

Дата 29.9.2004, 07:24 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

Цитата(REVOLT @ 29.9.2004, 00:09)

> If MainTab.Tab = 0 Then
> If List2.ListCount = 1 Then
> Part = List1.List(List1.ListIndex - 1): Name = List2.List(0)
> Else
> Part = List1.List(List1.ListIndex): Name = List2.List(List2.ListIndex - 1)
> End If
> ProgData.Recordset.Delete: Call UpdateProgList(Part, Name)

вот например:

Код

select case list2.listcount
case 0
   msgbox "123"
case 1
   Part = List1.List(List1.ListIndex - 1): Name = List2.List(0)
case else
   Part = List1.List(List1.ListIndex): Name = List2.List(List2.ListIndex - 1)
end select

--------------------

Если тебе плюют в спину, значит ты впереди...

REVOLT

Дата 29.9.2004, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет

Пасиб, я по другому сделал правдо

, но всёравно теперь буду знать о

select case
case

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »