Dim dv As DataView = New DataView(CurrentEx.AppContext.LoginInfoData.LoginData.CODE_INFO)
        Dim dt As New DataTable
        dv.RowFilter = "D_KBN_KBSHUBETUID = '0023'"
        dt.Merge(dv.ToTable())
        If dt.Rows.Count > 0 Then
           cboIdoukb.Init(dt,True,dt.Columns("D_KBN_KBNDISPCD"),dt.Columns("D_KBN_KBNM"))
        End If