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

[ROSTAM2]

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

    Sub OptionsFromArray(Element As HtmlElement, ParamArray Source As String())

        Dim SelectOption As mshtml.HTMLOptionElement

        With Element

            .InnerHtml = ""

            For Each Value As String In Source

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

                SelectOption.innerText = Value

                SelectOption.value = Value

                If String.IsNullOrEmpty(.InnerHtml) = True Then

                    SelectOption.selected = True

                End If

                .DomElement.appendChild(SelectOption)

            Next

        End With

    End Sub