¡¡¡Problema del campo de la base de datos de búsqueda del cuadro combinado de lenguaje simple!!! Por ejemplo, creé una base de datos edb y el contenido del cuadro de edición 1 es la fecha actual.

.Subrutina__Ventana de inicio_ Creada

ComboBox1.Type = 2

Button1.Title = "Escribir o leer"

EditBox2 .Si se permiten varias líneas = Verdadero

.Si es Verdadero (si el archivo existe (tome el directorio en ejecución () + "\diary.edb") = Falso)

Crear base de datos ()

.End if true

Leer en proyecto()

La subrutina crea base de datos

Campo variable local, información del campo. , , "2"

Campo [1].Nombre = "Fecha"

Campo [1].Tipo = #Tipo de texto

Campo[ 1] .Longitud máxima del texto = 20

Campo [2]. Nombre = "Diario"

Campo [2]. ].Longitud máxima del texto = 1000

Crear (tomar directorio de ejecución () + "\diary.edb", campo)

. La subrutina lee elementos

Agregar elementos ("Seleccione una fecha", 0)

Abrir (tomar directorio de ejecución () + "\diary.edb", "rj", ,. , , )

Al primer registro ()

.Cuenta el bucle primero (obtiene el número de registros (), registro)

ComboBox 1. Agregar elemento( Leer("Fecha"), Grabar)

Saltar()

Contar LoopEnd ()

ComboBox1.Selección actual = 0