omar fredy cuapio
- 1. Dim i as integer Dim bandera as boolean Bandera=true Dim tamano as integer Registrobindingsource.movefirst() Tamano=registrobindingsource.count() Dim res as boolean Dim a as string Dim b as string I=1 a=ucase(trim(rfctextbox.text)) b =ucase(trim(textbox1.text)) if(tamano=0)then msgbox(tabla vacia) else registrobindingsource.movefirst() 卒a=ucase(trim(rfctextbox.text)) Do Res=a like b If(res=true)then Bandera=false Else Registrobindingsource.movenext() A=ucase(trim(rfctextbox.text)) I=i+1 End if Loop while(bandera=true and <=tamano) End if If(bandera=true)then Idtextbox.enable=false Rfctextbox.enable=false Nombre_de_la_empresatext.box.enable=false Direcciontextbox.enable=false Localidadtextbox.enable=false Provinciatextbox.enable=false Codigo_postaltextbox.enable=false Telefonotextbox.enable=false Pagina_webtextbox.enable=false Idtextbox.visible=false Rfctextbox.visible=false Nombre_de_la_empresatextbox.visible=false Direcciontextbox.visible=false
- 3. Bot坦n de guardar Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If (DirectorioDataSet.HasChanges) Then Me.Validate() Me.RegistroBindingSource.EndEdit() Me.RegistroTableAdapter.Update(Me.DirectorioDataSet.registro) MsgBox("grabado") End If End Sub