For Each elem As String In ComboBox.Items
Next
lunes, 30 de marzo de 2020
Eliminar todos los espacios en blanco
lunes, 23 de marzo de 2020
Valor máximo de una columna datagridview
IdTarea = dgv_tareas.Rows.Cast(Of DataGridViewRow).Max(Function(row) row.Cells("Column1").Value)
fuente
fuente
miércoles, 18 de marzo de 2020
Insertar campo blob
Insert TestBlob(tbName, tbDesc, tbBin) Select
'81.pdf','PDF file', BulkColumn from Openrowset( Bulk
'C:\fact2\pdf\DTE46-F1.PDF', Single_Blob) as tb
fuente
'81.pdf','PDF file', BulkColumn from Openrowset( Bulk
'C:\fact2\pdf\DTE46-F1.PDF', Single_Blob) as tb
fuente
martes, 17 de marzo de 2020
Función sumar
Dim sum As Func(Of Integer, Integer, Integer) = Function(x, y) x + y
MessaBox(sum(4,4) = 8
Dim OpAnd As Func(Of Boolean, Boolean, Boolean) = Function(x, y) x AndAlso y
Operación And
Dim OpOr As Func(Of Boolean, Boolean, Boolean) = Function(x, y) x OrElse y
MessaBox(sum(4,4) = 8
Dim OpAnd As Func(Of Boolean, Boolean, Boolean) = Function(x, y) x AndAlso y
Operación And
Dim OpOr As Func(Of Boolean, Boolean, Boolean) = Function(x, y) x OrElse y
jueves, 12 de marzo de 2020
trim array
Dim arreglo() As String = arreglo.Split(c).Select(Function(elem) elem.Trim).ToArray
Patron extensión archivos Regex
miércoles, 11 de marzo de 2020
Certificación Boleta electrónica
Instructivo certificación boleta electrónica
Set de pruebas boleta
Declaración de cumplimiento Boletas
nuevo certificación
Etiquetas:
boleta,
certificación,
cumplimiento,
declaración
jueves, 5 de marzo de 2020
xml instancia nothing
Dim xml As New XmlDocument
xml = Nothing
xml = Nothing
martes, 3 de marzo de 2020
Nombre variables
Obj
ObjCmd
ObjConn
StrConn
StrConex
ObjCmd
ObjConn
StrConn
StrConex
Suscribirse a:
Entradas (Atom)