Hola, necesitas crear algo mas o menos así.
Dim
oUTables As SAPbobsCOM. UserTablesMD
Dim
intCodigoSAP As Integer
Dim
strMensajeSAP As String =
oUTables
= oCompany.GetBusinessObject SAPbobsCOM. BoObjectTypes .oUserTables
If
oUTables.GetByKey tbTest “”) Then
MessageBox
.Show (("Ya
Else
oUTables.TableName
= tbTest
oUTables.TableDescription
= "tabla
oUTables.TableType
= SAPbobsCOM. BoUTBTableType .bott_NoObjectAutoIncrement
intCodigoSAP
= oUTables.Add
If
intCodigoSAP <> 0 Then
oCompany.GetLastError
intCodigoSAP , strMensajeSAP
MessageBox
.Show (("Error: "& strMensajeSAP & "; Code : "& intCodigoSAP
Else
MessageBox
.Show (("Creada con exito
End
If
End
If
System.Runtime.InteropServices.
Marshal .ReleaseComObject oUTables
oUTables
= Nothing
Dim
oUFields As SAPbobsCOM. UserFieldsMD
oUFields
= oCompany.GetBusinessObject SAPbobsCOM. BoObjectTypes .oUserFields
oUFields.TableName
= tbTest
oUFields.Name
= "
oUFields.Description
= "Campo
oUFields.Type
= SAPbobsCOM. BoFieldTypes .db_Alpha
oUFields.EditSize
= 20
oUFields.Add
System.Runtime.InteropServices.
Marshal .ReleaseComObject oUFields
oUFields
= Nothing
Saludos.