393 lines
18 KiB
VB.net
393 lines
18 KiB
VB.net
Public Class PaisCatalogo
|
||
Inherits System.Windows.Forms.Form
|
||
|
||
#Region " Windows Form Designer generated code "
|
||
|
||
Public Sub New()
|
||
MyBase.New()
|
||
|
||
'This call is required by the Windows Form Designer.
|
||
InitializeComponent()
|
||
|
||
'Add any initialization after the InitializeComponent() call
|
||
|
||
End Sub
|
||
|
||
'Form overrides dispose to clean up the component list.
|
||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||
If disposing Then
|
||
If Not (components Is Nothing) Then
|
||
components.Dispose()
|
||
End If
|
||
End If
|
||
MyBase.Dispose(disposing)
|
||
End Sub
|
||
|
||
'Required by the Windows Form Designer
|
||
Private components As System.ComponentModel.IContainer
|
||
|
||
'NOTE: The following procedure is required by the Windows Form Designer
|
||
'It can be modified using the Windows Form Designer.
|
||
'Do not modify it using the code editor.
|
||
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
|
||
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
|
||
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
|
||
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
|
||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||
Friend WithEvents cmbOrganismo As System.Windows.Forms.ComboBox
|
||
Friend WithEvents txtNombreIngles As System.Windows.Forms.TextBox
|
||
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
|
||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
|
||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents ToolBar As System.Windows.Forms.ToolBar
|
||
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
|
||
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
|
||
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
|
||
Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel
|
||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||
Me.components = New System.ComponentModel.Container
|
||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(PaisCatalogo))
|
||
Me.ToolBar = New System.Windows.Forms.ToolBar
|
||
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
|
||
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
|
||
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
|
||
Me.btnSalir = New System.Windows.Forms.ToolBarButton
|
||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||
Me.cmbOrganismo = New System.Windows.Forms.ComboBox
|
||
Me.txtNombreIngles = New System.Windows.Forms.TextBox
|
||
Me.txtNombre = New System.Windows.Forms.TextBox
|
||
Me.Label4 = New System.Windows.Forms.Label
|
||
Me.Label3 = New System.Windows.Forms.Label
|
||
Me.Label2 = New System.Windows.Forms.Label
|
||
Me.chkActivo = New System.Windows.Forms.CheckBox
|
||
Me.GroupBox1 = New System.Windows.Forms.GroupBox
|
||
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||
Me.GroupBox2 = New System.Windows.Forms.GroupBox
|
||
Me.ListBox1 = New System.Windows.Forms.ListBox
|
||
Me.ComboBox1 = New System.Windows.Forms.ComboBox
|
||
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
|
||
Me.LinkLabel2 = New System.Windows.Forms.LinkLabel
|
||
Me.GroupBox1.SuspendLayout()
|
||
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me.GroupBox2.SuspendLayout()
|
||
Me.SuspendLayout()
|
||
'
|
||
'ToolBar
|
||
'
|
||
Me.ToolBar.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.ToolBar.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
|
||
Me.ToolBar.ButtonSize = New System.Drawing.Size(75, 40)
|
||
Me.ToolBar.DropDownArrows = True
|
||
Me.ToolBar.ImageList = Me.ImageList1
|
||
Me.ToolBar.Location = New System.Drawing.Point(0, 0)
|
||
Me.ToolBar.Name = "ToolBar"
|
||
Me.ToolBar.ShowToolTips = True
|
||
Me.ToolBar.Size = New System.Drawing.Size(556, 47)
|
||
Me.ToolBar.TabIndex = 51
|
||
'
|
||
'btnAgrergar
|
||
'
|
||
Me.btnAgrergar.ImageIndex = 0
|
||
Me.btnAgrergar.Text = "Agregar"
|
||
'
|
||
'btnActualizar
|
||
'
|
||
Me.btnActualizar.ImageIndex = 5
|
||
Me.btnActualizar.Text = "Actualizar"
|
||
'
|
||
'btnEliminar
|
||
'
|
||
Me.btnEliminar.ImageIndex = 1
|
||
Me.btnEliminar.Text = "Eliminar"
|
||
'
|
||
'btnSalir
|
||
'
|
||
Me.btnSalir.ImageIndex = 4
|
||
Me.btnSalir.Text = "Salir"
|
||
'
|
||
'ImageList1
|
||
'
|
||
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
|
||
'
|
||
'cmbOrganismo
|
||
'
|
||
Me.cmbOrganismo.Location = New System.Drawing.Point(119, 344)
|
||
Me.cmbOrganismo.Name = "cmbOrganismo"
|
||
Me.cmbOrganismo.Size = New System.Drawing.Size(130, 21)
|
||
Me.cmbOrganismo.TabIndex = 54
|
||
'
|
||
'txtNombreIngles
|
||
'
|
||
Me.txtNombreIngles.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||
Me.txtNombreIngles.Location = New System.Drawing.Point(118, 318)
|
||
Me.txtNombreIngles.Name = "txtNombreIngles"
|
||
Me.txtNombreIngles.Size = New System.Drawing.Size(272, 20)
|
||
Me.txtNombreIngles.TabIndex = 53
|
||
Me.txtNombreIngles.Text = ""
|
||
'
|
||
'txtNombre
|
||
'
|
||
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||
Me.txtNombre.Location = New System.Drawing.Point(118, 288)
|
||
Me.txtNombre.Name = "txtNombre"
|
||
Me.txtNombre.Size = New System.Drawing.Size(272, 20)
|
||
Me.txtNombre.TabIndex = 52
|
||
Me.txtNombre.Text = ""
|
||
'
|
||
'Label4
|
||
'
|
||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Label4.Location = New System.Drawing.Point(52, 348)
|
||
Me.Label4.Name = "Label4"
|
||
Me.Label4.Size = New System.Drawing.Size(66, 16)
|
||
Me.Label4.TabIndex = 57
|
||
Me.Label4.Text = "Organismo:"
|
||
'
|
||
'Label3
|
||
'
|
||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Label3.Location = New System.Drawing.Point(30, 321)
|
||
Me.Label3.Name = "Label3"
|
||
Me.Label3.Size = New System.Drawing.Size(88, 16)
|
||
Me.Label3.TabIndex = 56
|
||
Me.Label3.Text = "Nombre Ingl<67>s:"
|
||
'
|
||
'Label2
|
||
'
|
||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.Label2.Location = New System.Drawing.Point(67, 292)
|
||
Me.Label2.Name = "Label2"
|
||
Me.Label2.Size = New System.Drawing.Size(50, 16)
|
||
Me.Label2.TabIndex = 55
|
||
Me.Label2.Text = "Nombre:"
|
||
'
|
||
'chkActivo
|
||
'
|
||
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||
Me.chkActivo.ForeColor = System.Drawing.Color.Red
|
||
Me.chkActivo.Location = New System.Drawing.Point(198, 264)
|
||
Me.chkActivo.Name = "chkActivo"
|
||
Me.chkActivo.Size = New System.Drawing.Size(72, 16)
|
||
Me.chkActivo.TabIndex = 58
|
||
Me.chkActivo.Text = "Activo:"
|
||
'
|
||
'GroupBox1
|
||
'
|
||
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
|
||
Me.GroupBox1.Location = New System.Drawing.Point(6, 58)
|
||
Me.GroupBox1.Name = "GroupBox1"
|
||
Me.GroupBox1.Size = New System.Drawing.Size(454, 198)
|
||
Me.GroupBox1.TabIndex = 63
|
||
Me.GroupBox1.TabStop = False
|
||
Me.GroupBox1.Text = "Lista de Paises"
|
||
'
|
||
'C1TrueDBGrid1
|
||
'
|
||
Me.C1TrueDBGrid1.AllowUpdate = False
|
||
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
|
||
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
|
||
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
|
||
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
|
||
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
||
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
|
||
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(448, 179)
|
||
Me.C1TrueDBGrid1.TabIndex = 0
|
||
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
|
||
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
||
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
|
||
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
||
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
|
||
"er;}Style9{}Normal{}HighlightRow{ForeColor:Aqua;BackColor:Highlight;}Style14{}Od" & _
|
||
"dRow{}RecordSelector{AlignImage:Center;}Style15{}Heading{Wrap:True;AlignVert:Cen" & _
|
||
"ter;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}S" & _
|
||
"tyle10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data></Styles><Split" & _
|
||
"s><C1.Win.C1TrueDBGrid.MergeView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=" & _
|
||
"""17"" ColumnFooterHeight=""17"" MarqueeStyle=""HighlightRow"" RecordSelectorWidth=""16" & _
|
||
""" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Height>" & _
|
||
"175</Height><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Ed" & _
|
||
"itor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle" & _
|
||
" parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><G" & _
|
||
"roupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style" & _
|
||
"2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle paren" & _
|
||
"t=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSel" & _
|
||
"ectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selecte" & _
|
||
"d"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /><ClientRect>0, 0, 444, 175" & _
|
||
"</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win" & _
|
||
".C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><St" & _
|
||
"yle parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style " & _
|
||
"parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style p" & _
|
||
"arent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style paren" & _
|
||
"t=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style pare" & _
|
||
"nt=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style p" & _
|
||
"arent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyl" & _
|
||
"es><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><Def" & _
|
||
"aultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 444, 175</ClientArea><P" & _
|
||
"rintPageHeaderStyle parent="""" me=""Style14"" /><PrintPageFooterStyle parent="""" me=" & _
|
||
"""Style15"" /></Blob>"
|
||
'
|
||
'GroupBox2
|
||
'
|
||
Me.GroupBox2.Controls.Add(Me.ListBox1)
|
||
Me.GroupBox2.Controls.Add(Me.ComboBox1)
|
||
Me.GroupBox2.Controls.Add(Me.LinkLabel1)
|
||
Me.GroupBox2.Controls.Add(Me.LinkLabel2)
|
||
Me.GroupBox2.Location = New System.Drawing.Point(166, 390)
|
||
Me.GroupBox2.Name = "GroupBox2"
|
||
Me.GroupBox2.Size = New System.Drawing.Size(236, 136)
|
||
Me.GroupBox2.TabIndex = 64
|
||
Me.GroupBox2.TabStop = False
|
||
Me.GroupBox2.Text = "Clasificaci<EFBFBD>n"
|
||
'
|
||
'ListBox1
|
||
'
|
||
Me.ListBox1.Location = New System.Drawing.Point(54, 70)
|
||
Me.ListBox1.Name = "ListBox1"
|
||
Me.ListBox1.Size = New System.Drawing.Size(120, 56)
|
||
Me.ListBox1.TabIndex = 1
|
||
'
|
||
'ComboBox1
|
||
'
|
||
Me.ComboBox1.Location = New System.Drawing.Point(52, 46)
|
||
Me.ComboBox1.Name = "ComboBox1"
|
||
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
|
||
Me.ComboBox1.TabIndex = 0
|
||
Me.ComboBox1.Text = "ComboBox1"
|
||
'
|
||
'LinkLabel1
|
||
'
|
||
Me.LinkLabel1.Location = New System.Drawing.Point(32, 22)
|
||
Me.LinkLabel1.Name = "LinkLabel1"
|
||
Me.LinkLabel1.Size = New System.Drawing.Size(60, 16)
|
||
Me.LinkLabel1.TabIndex = 2
|
||
Me.LinkLabel1.TabStop = True
|
||
Me.LinkLabel1.Text = "LinkLabel1"
|
||
Me.LinkLabel1.VisitedLinkColor = System.Drawing.Color.Blue
|
||
'
|
||
'LinkLabel2
|
||
'
|
||
Me.LinkLabel2.Location = New System.Drawing.Point(144, 18)
|
||
Me.LinkLabel2.Name = "LinkLabel2"
|
||
Me.LinkLabel2.Size = New System.Drawing.Size(66, 16)
|
||
Me.LinkLabel2.TabIndex = 3
|
||
Me.LinkLabel2.TabStop = True
|
||
Me.LinkLabel2.Text = "LinkLabel2"
|
||
Me.LinkLabel2.VisitedLinkColor = System.Drawing.Color.Blue
|
||
'
|
||
'PaisCatalogo
|
||
'
|
||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||
Me.BackColor = System.Drawing.Color.White
|
||
Me.ClientSize = New System.Drawing.Size(556, 533)
|
||
Me.Controls.Add(Me.GroupBox2)
|
||
Me.Controls.Add(Me.GroupBox1)
|
||
Me.Controls.Add(Me.chkActivo)
|
||
Me.Controls.Add(Me.cmbOrganismo)
|
||
Me.Controls.Add(Me.txtNombreIngles)
|
||
Me.Controls.Add(Me.txtNombre)
|
||
Me.Controls.Add(Me.Label4)
|
||
Me.Controls.Add(Me.Label3)
|
||
Me.Controls.Add(Me.Label2)
|
||
Me.Controls.Add(Me.ToolBar)
|
||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
||
Me.MaximizeBox = False
|
||
Me.Name = "PaisCatalogo"
|
||
Me.Text = "Pais Catalogo"
|
||
Me.GroupBox1.ResumeLayout(False)
|
||
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||
Me.GroupBox2.ResumeLayout(False)
|
||
Me.ResumeLayout(False)
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
Dim clCmpOrg As clsComplejo = New clsComplejo
|
||
Dim clCmpOrg1 As clsComplejo = New clsComplejo
|
||
Dim clCmpOrg2 As clsComplejo = New clsComplejo
|
||
Dim clCmp As clsComplejo = New clsComplejo
|
||
Dim clCmp1 As clsComplejo = New clsComplejo
|
||
|
||
Private Sub PaisCatalogo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
sbIniciaForma()
|
||
End Sub
|
||
|
||
Private Sub sbIniciaForma()
|
||
Try
|
||
clCmp.fdtDataSetTabla("spGridPais 0")
|
||
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
|
||
'clCmpOrg1.sbLlenaCombo("spListaOrganismos", Me.cmbOrganismo)
|
||
Catch ex As Exception
|
||
MessageBox.Show("Error PaisCatalogo; sbIniciaForma: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Sub
|
||
Private Sub ToolBar_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar.ButtonClick
|
||
Select Case e.Button.Text
|
||
Case "Agregar"
|
||
|
||
Case "Actualizar"
|
||
|
||
Case "Agregar"
|
||
|
||
Case "Salir"
|
||
Me.Close()
|
||
End Select
|
||
End Sub
|
||
|
||
|
||
|
||
Private Function fsDefineSQL(ByVal SP As String) As String
|
||
'Defino mi cadena para el procedimiento almacenado para recuperar la clasificacion del pais
|
||
Try
|
||
'Declaro varibales
|
||
Dim lsSQL As String = ""
|
||
Dim _IdPais As Integer
|
||
'Asigancion de valores (parametros para el Store procedure)
|
||
_IdPais = Me.C1TrueDBGrid1.Columns("Clave").Value
|
||
'Formo el query
|
||
lsSQL = lsSQL & SP
|
||
lsSQL = lsSQL & _IdPais
|
||
Return lsSQL
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End Try
|
||
End Function
|
||
|
||
|
||
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
|
||
'Recupero Datos del gird
|
||
Me.txtNombre.Text = Me.C1TrueDBGrid1.Columns("Nombre").Value
|
||
Me.txtNombreIngles.Text = Me.C1TrueDBGrid1.Columns("Nombre Ingl<67>s").Value
|
||
Me.cmbOrganismo.ValueMember = Me.C1TrueDBGrid1.Columns("Id_Organismo").Value
|
||
Me.cmbOrganismo.Text = Me.C1TrueDBGrid1.Columns("Organismo").Value
|
||
Me.chkActivo.Checked = Me.C1TrueDBGrid1.Columns("Status").Value
|
||
'Hago una consulta ala base de datos para recuperar la clasificacion del pais
|
||
Dim SQL As String = ""
|
||
SQL = fsDefineSQL("spGridPaisClasificacion ")
|
||
clCmp1.fdtDataSetTabla(SQL)
|
||
Dim x As Integer
|
||
Dim cad As String
|
||
For x = 0 To clCmp1.ds.Tables(0).Rows.Count
|
||
Select Case cad
|
||
|
||
End Select
|
||
Next
|
||
' Me.C1TrueDBGrid2.SetDataBinding(clCmp1.ds, "Tabla") 'Llena el grid de la clasificacion
|
||
' clCmp.sbLlenaCheckListBox("Select Id_Clasificacion as clave, Nombre as nombre from clasificacionpais", Me.CheckedListBox1)
|
||
End Sub
|
||
|
||
Private Sub C1TrueDBGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.Click
|
||
|
||
End Sub
|
||
End Class
|