Фильтр работает не корректно

@Gal4onok · Регистрация: 21.08.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте,в программировании я новичок, вот мучаюсь с функцией фильтра:

VB.NET

    'функция возвращает сокр. название представительства
    Public Function predstavit() As String
        If Cbfilterpred.Text = "Жигулевск" Then
            predstavit = "Ж"
        ElseIf Cbfilterpred.Text = "Кинель" Then
            predstavit = "К"
        ElseIf Cbfilterpred.Text = "Кузнецк" Then
            predstavit = "КЗ"
        ElseIf Cbfilterpred.Text = "Новокуйбышевск" Then
            predstavit = "Н"
        ElseIf Cbfilterpred.Text = "Новоспасское" Then
            predstavit = "НС"
        ElseIf Cbfilterpred.Text = "Отрадный" Then
            predstavit = "О"
        ElseIf Cbfilterpred.Text = "Сергиевск" Then
            predstavit = "С"
        ElseIf Cbfilterpred.Text = "Сызрань" Then
            predstavit = "СЗ"
        ElseIf Cbfilterpred.Text = "Ульяновск" Then
            predstavit = "У"
        ElseIf Cbfilterpred.Text = "Хвалынск" Then
            predstavit = "Х"
        ElseIf Cbfilterpred.Text = "Тольятти" Then
            predstavit = "Т"
        Else
            predstavit = ""
        End If
    End Function

Фильтр работает но некорректно, например если выбрать сергиевск,фильтр вернет "С", "СЗ" и "НС", то есть все где есть "С". что нужно прописать еще?

DimN · 22.08.2013, 11:35

А через Select Case не пробовал?

TT_TT · 22.08.2013, 11:37

я бы сделал по другому: от слова отделял бы первую(две) буквы сравнивал с вводимым и выводил нужное
если будет время мб напишу

Добавлено через 44 секунды

Сообщение от -DimN-

А через Select Case не пробовал?

Хм тоже очень даже неплохой вариант

@Gal4onok · 22.08.2013, 11:48 **[ТС]**

через Select Case одну строчку напишите пожалуйста,а то у меня кучу ошибок выдает.... информация берется из датагридвью.....

TT_TT · 22.08.2013, 11:50

вначале вопрос те над фильтр именно через функцию? если да то Select case не подойдёт это оператор выбора

@Gal4onok · 22.08.2013, 11:51 **[ТС]**

да,через функцию

SoftIce · 22.08.2013, 11:57

через select case
вообще-то Cbfilterpred.Text лучше передавать в функцию как параметр

Visual Basic

Option Compare Text
Public Function predstavit() As String
  Dim p As String
  Select Case Cbfilterpred.Text
         Case "Жигулевск": p = "Ж"
         Case "Кинель": p = "К"
         Case "Кузнецк": p = "КЗ"
         Case "Новокуйбышевск": p = "Н"
         Case "Новоспасское": p = "НС"
         Case "Отрадный": p = "О"
         Case "Сергиевск": p = "С"
         Case "Сызрань": p = "СЗ"
         Case "Ульяновск": p = "У"
         Case "Хвалынск": p = "Х"
         Case "Тольятти": p = "Т"
         Case Else: p = ""
    End Select
    predstavit = p
End Function

@Gal4onok · 22.08.2013, 12:03 **[ТС]**

SoftIce, спасибо, но проблема осталась, выдает все поля где находит похожую букву

SoftIce · 22.08.2013, 12:06

Дело не в функции
Функция возвращает только одно значение
Наверняка Вы её несколько раз вызываете, поэтому и получаете несколько значений.

Cbfilterpred.Text - это что такое?

@Gal4onok · 22.08.2013, 12:58 **[ТС]**

Сообщение от SoftIce

Cbfilterpred.Text - это

это Combobox

SoftIce · 22.08.2013, 13:02

Как(откуда) вызываете функцию?

@Gal4onok · 22.08.2013, 13:05 **[ТС]**

Сообщение от SoftIce

Как(откуда) вызываете функцию?

Я сначала объявляла переменную:

VB.NET

1	Dim predstav As String = predstavit()

потом использовала ее в нужных мне фильтрах,например:

VB.NET

1
2
3

If cbfilterOtdel.Text = "" And tbDateOutPr.Text = "" And tbInDatePr.Text = "" And tbDateOut.Text = "" Then
            Me.VORSvseSTUDENTIBindingSource.Filter = String.Format("pol like '{0}' and vidobych like '{1}' and Prikaz_o_zach like '{2}' and DeductedOrder like '{3}'[B] and Predstav like '{4}[/B]' and OrgName like '{5}' and voendoc like '{6}' and status like '{7}' and outCase like '{8}' and region like '{9}'", _
            "%" & pol & "%", "%" & forma & "%", "%" & prikazZach & "%", "%" & deductedOrder & "%", [B]"%" & predstav & "%"[/B], "%" & inst & "%", "%" & voendoc & "%", "%" & status & "%", "%" & outcase & "%", "%" & region & "%")

SoftIce · 22.08.2013, 13:15

Сообщение от Gal4onok

Я сначала объявляла переменную:
Dim predstav As String = predstavit()

Вы здесь сразу присваиваете переменной то значение, которое возвращает функция в зависимости от текста в комбобоксе на настоящий момент.

Может быть здесь

Сообщение от Gal4onok

"%" & predstav & "%",

попробовать использовать не переменную, а возвращаемое функцией значение?
"%" & predstavit() & "%",

@Gal4onok · 22.08.2013, 13:27 **[ТС]**

Сообщение от SoftIce

попробовать использовать не переменную, а возвращаемое функцией значение?
"%" & predstavit() & "%",

попробовала, но прога однозначно возвращает мне все строки,где находит заданную в функции букву(

SoftIce · 22.08.2013, 13:37

чудеса какие-то

@Gal4onok · 23.08.2013, 08:02 **[ТС]**

Сообщение от SoftIce

чудеса какие-то

Это знак,что из девушки хороший программист получается редко

Добавлено через 17 часов 41 минуту
При попытке запустить на другом компьютере все заработало,всем спасибо)

@Gal4onok 0 / 0 / 0 Регистрация: 21.08.2013 Сообщений: 20
	22.08.2013, 12:58 [ТС]	10
	Сообщение от SoftIce Cbfilterpred.Text - это это Combobox 0

@Gal4onok 0 / 0 / 0 Регистрация: 21.08.2013 Сообщений: 20
	22.08.2013, 13:27 [ТС]	14
	Сообщение от SoftIce попробовать использовать не переменную, а возвращаемое функцией значение? "%" & predstavit() & "%", попробовала, но прога однозначно возвращает мне все строки,где находит заданную в функции букву( 0

@Gal4onok 0 / 0 / 0 Регистрация: 21.08.2013 Сообщений: 20
	23.08.2013, 08:02 [ТС]	16
	Сообщение от SoftIce чудеса какие-то Это знак,что из девушки хороший программист получается редко Добавлено через 17 часов 41 минуту При попытке запустить на другом компьютере все заработало,всем спасибо) 0

DimN 98 / 49 / 0 Регистрация: 14.08.2013 Сообщений: 230 Записей в блоге: 4
	22.08.2013, 11:35	2
	А через Select Case не пробовал? 0

TT_TT 1 / 29 / 0 Регистрация: 21.08.2013 Сообщений: 379
	22.08.2013, 11:37	3
	я бы сделал по другому: от слова отделял бы первую(две) буквы сравнивал с вводимым и выводил нужное если будет время мб напишу Добавлено через 44 секунды Сообщение от -DimN- А через Select Case не пробовал? Хм тоже очень даже неплохой вариант 0

@Gal4onok 0 / 0 / 0 Регистрация: 21.08.2013 Сообщений: 20
	22.08.2013, 11:48 [ТС]	4
	через Select Case одну строчку напишите пожалуйста,а то у меня кучу ошибок выдает.... информация берется из датагридвью..... 0

TT_TT 1 / 29 / 0 Регистрация: 21.08.2013 Сообщений: 379
	22.08.2013, 11:50	5
	вначале вопрос те над фильтр именно через функцию? если да то Select case не подойдёт это оператор выбора 0

@Gal4onok 0 / 0 / 0 Регистрация: 21.08.2013 Сообщений: 20
	22.08.2013, 11:51 [ТС]	6
	да,через функцию 0

@Gal4onok 0 / 0 / 0 Регистрация: 21.08.2013 Сообщений: 20
	22.08.2013, 12:03 [ТС]	8
	SoftIce, спасибо, но проблема осталась, выдает все поля где находит похожую букву 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	22.08.2013, 12:06	9
	Дело не в функции Функция возвращает только одно значение Наверняка Вы её несколько раз вызываете, поэтому и получаете несколько значений. Cbfilterpred.Text - это что такое? 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	22.08.2013, 13:02	11
	Как(откуда) вызываете функцию? 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	22.08.2013, 13:15	13
	Сообщение от Gal4onok Я сначала объявляла переменную: Dim predstav As String = predstavit() Вы здесь сразу присваиваете переменной то значение, которое возвращает функция в зависимости от текста в комбобоксе на настоящий момент. Может быть здесь Сообщение от Gal4onok "%" & predstav & "%", попробовать использовать не переменную, а возвращаемое функцией значение? "%" & predstavit() & "%", 1

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	22.08.2013, 13:37	15
	чудеса какие-то 0

Опции темы