Hello.
I d'ont know if this MapBasic program will be resolve your problem but
you will try it.
'programa para crear en una tabla de objetos textos una columna que los
contenga
' Miguel C. Melero 2.000
Declare Sub Main
Declare Sub textos
Dim fich_proc, tabla, columna As String
Include "MAPBASIC.DEF"
Sub Main
Close All
fich_proc = FileOpenDlg("","","TAB","Tabla Abierta")
Open Table fich_proc as pepe
Dialog
Title "PASO DE TEXTOS A COLUMNA"
Width 250
Height 100
Control StaticText
Title "TABLA CON TEXTOS:"
Position 5, 10
Control EditText
Position 100, 10
Width 200
Value fich_proc
into fich_proc
Control StaticText
Title "LA NUEVA COLUMNA SE LLAMARA TEXTOS"
Position 5, 40
Control Button
Title "EJECUTAR"
Calling textos
Position 20, 50
Control CancelButton
Title "ABANDONAR"
Position 150, 50
End Sub
Sub textos
Alter Table pepe (Add TEXTO Char(5)) Interactive
Update pepe Set TEXTO=ObjectInfo(pepe.obj, OBJ_INFO_TEXTSTRING)
Browse * from pepe
End Sub
Regards:
Miguel
_______________________________________________________________________
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, send e-mail to [EMAIL PROTECTED] and
put "unsubscribe MapInfo-L" in the message body.
