Как отобразить различные значения в выпадающих списках для каждой строки, где значения выпадающих списков строк зависят от другого значения столбца той же строки.
Используя Janus GridEx, я создал сетку, в которой есть несколько столбцов, где 9-й столбец(код) будет иметь выпадающий список, и данные в выпадающем списке должны быть разными для разных строк, а значения выпадающего списка зависят от значения 10-го столбца (CommentQID).
Но теперь я получаю одинаковые значения для всех выпадающих списков в каждой строке. Пожалуйста, предложите мне изменения для достижения различных выпадающих значений для разных строк на основе значения 10-го столбца (CommentQID).
Что я уже пробовал:
Private Sub UpdateCodeDropdown()
Тусклые ряды, как Янус.Окна.Рекомендуем использовать утилиту.GridEXRow()
Тусклый ряд, как Янус.Окна.Рекомендуем использовать утилиту.GridEXRow
Дим totRows как целое число = 0, iProofed как целое число = 0, iCoded как целое число = 0
Dim commentQID как целое число = 0
Dim i как целое число = 0
Попробуй
строки = grdProofCodeComments.Метод getrows()
Для каждой строки в строках
Если грести.Ячейки ("CommentQID"). Текст.Метод toString() Нет ничего и тоже греби.Ячейки ("CommentQID"). Текст.ToString ()< & gt; String.Тогда Пусто
commentQID = строка.Ячейки ("CommentQID").Ценность
getCodes(commentQID)
Else : commentQID = 0
grdProofCodeComments.Выпадающие списки ("ddCommentCodeQID").ClearItems()
Конец, Если
Следующий
Поймать ex как исключение
Ящик для сообщений.Show (ex. Message," Error in UpdateStats", MessageBoxButtons.Хорошо, MessageBoxIcon.Ошибка)
Окончательно
строки = ничего
Конец Попытки
Конец Подводной Лодки
Public Sub getCodes(commentQID As Integer)
Дим sqlcommand, который как String = "выделить объявление.Адефид, ад.Порядок, объявление.ADEValue, значение= ДБО.ufn_GetZeroFilledADeValue(а" &амп; _
"д'.ADefID), объявление.ADesc, объявление.ADescBrief от tblQDef м внутреннее соединение tblADef объявление на объявление.В" &амп; _"идентификатор = вопрос.Где Еш (г.QID ПО = @QID ПО)"
Если commentQID < & gt; ничего тогда
Dim ds As DataSet = SqlHelper.Методы Executedataset(Строку ConnectionString Свойство Commandtype.Текст, sqlcommand объект новый объект sqlparameter("@qid по", преобразовать.ToInt32(commentQID))) "как передать SQL-параметр integer datatype
grdProofCodeComments.Выпадающие списки ("ddCommentCodeQID").SetDataBinding(ds, ds. Tables(0).Имятаблицы)
Конец, Если
Конец Подводной Лодки