سوال فنی در مورد نرم افزار حسابداری!!

[ROSTAM2]

این تابع برای اینکه از این روش بشه آیتم های لیست های کشویی رو از فایل متنی یا یک آرایه فراهم کرد:

    Sub OptionsFromFilterArray(Element As HtmlElement, Source As Object(), Match As String)

        Dim Values() As String = Filter(Source, Match)

        Dim SelectOption As mshtml.HTMLOptionElement

        With Element

            .InnerHtml = ""

            For Each Value As String In Values

                SelectOption = Element.Document.CreateElement("option").DomElemen  t

                SelectOption.innerText = Value.Replace(Match, "")

                SelectOption.value = Value.Replace(Match, "")

                If String.IsNullOrEmpty(.InnerHtml) = True Then

                    SelectOption.selected = True

                End If

                .DomElement.appendChild(SelectOption)

            Next

        End With

    End Sub