ModuleMaster/usercontrols/fieldselector.ascx.vb - main - ivan/ModMas

ModuleMaster/usercontrols/fieldselector.ascx.vb
128 строк4 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports sharedClasses.dbFunctions

Partial Class UserControls_fieldSelector
    Inherits System.Web.UI.UserControl

    Public Property TableId As Integer
        Set(value As Integer)
            hfTableId.Value = value
        End Set
        Get
            Return hfTableId.Value
        End Get
    End Property

    Public Property Filter As String
        Set(value As String)
            hfFilter.Value = value
        End Set
        Get
            Return hfFilter.Value
        End Get
    End Property

    Public ReadOnly Property AvailableSelected As ListItem
        Get
            Return ddlAvailableFields.SelectedItem
        End Get
    End Property

    Public Property Title As String
        Set(value As String)
            lblTitle.Text = value
        End Set
        Get
            Return lblTitle.Text
        End Get
    End Property

    Public ReadOnly Property SelectedSelected As ListItem
        Get
            Return lbSelectedFields.SelectedItem
        End Get
    End Property

    Public ReadOnly Property AvailableList As ListItemCollection
        Get
            Return ddlAvailableFields.Items
        End Get
    End Property

    Public ReadOnly Property SelectedList As ListItemCollection
        Get

            Return lbSelectedFields.Items
        End Get
    End Property

    Protected Sub ibAdd_Click(sender As Object, e As ImageClickEventArgs) Handles ibAdd.Click
        Dim li As New ListItem
        li.Text = ddlAvailableFields.SelectedItem.Text
        li.Value = ddlAvailableFields.SelectedItem.Value
        lbSelectedFields.Items.Add(li)
        ddlAvailableFields.Items.RemoveAt(ddlAvailableFields.SelectedIndex)
    End Sub

    Protected Sub ibRemove_Click(sender As Object, e As ImageClickEventArgs) Handles ibRemove.Click
        If lbSelectedFields.SelectedIndex <> -1 Then
            Dim li As New ListItem
            li.Text = lbSelectedFields.SelectedItem.Text
            li.Value = lbSelectedFields.SelectedItem.Value
            lbSelectedFields.Items.RemoveAt(lbSelectedFields.SelectedIndex)
            ddlAvailableFields.Items.Insert(0, li)
            ddlAvailableFields.SelectedIndex = 0
        End If
    End Sub

    Public Sub BuildFiledsList()
        Dim ds As Data.DataTable = (New SqlFunctions).GetData("SELECT FieldName, DbFieldName FROM UserModules.dbo.TableFields WHERE visible='Y' and  tableid=" & TableId & " " & Filter)
        If Not IsNothing(ds) Then
            Try
                ddlAvailableFields.DataSource = ds
                ddlAvailableFields.DataValueField = "dbFieldName"
                ddlAvailableFields.DataTextField = "FieldName"
                ddlAvailableFields.DataBind()
            Catch ex As Exception

            End Try
        End If
    End Sub

    Public Sub RemoveFromAvailableByText(text As String)
        Try
            With ddlAvailableFields.Items
                .Remove(.FindByText(text))
            End With
        Catch ex As Exception
        End Try
    End Sub

    Public Sub RemoveFromSelectedByText(text As String)
        Try
            With lbSelectedFields.Items
                .Remove(.FindByText(text))
            End With
        Catch ex As Exception

        End Try
    End Sub

    Public Sub RemoveFromAvailableByValue(value As String)
        Try
            With ddlAvailableFields.Items
                .Remove(.FindByValue(value))
            End With
        Catch ex As Exception
        End Try
    End Sub

    Public Sub RemoveFromSelectedByvalue(value As String)
        Try
            With lbSelectedFields.Items
                .Remove(.FindByValue(value))
            End With
        Catch ex As Exception

        End Try
    End Sub
End Class