如果受表格大小限制,可以只显示几个开头的字作为提示。
程序代码:CREATE CURSOR tt (f1 I, f2 M)
INSERT INTO tt VALUES (1,"ahfdjkfh23874563456438756")
INSERT INTO tt VALUES (1,"213274ajkbssad")
INSERT INTO tt VALUES (1,"dsj8326423865fdsh")
GO TOP
of = CREATEOBJECT("form1")
of.show(1)
DEFINE CLASS form1 as Form
ADD OBJECT grd as grid1
ENDDEFINE
DEFINE CLASS grid1 as Grid
PROCEDURE init
this.ColumnCount = 2
this.Column1.ControlSource = "tt.f1"
this.Column2.ControlSource = "LEFTC(tt.f2,10)"
ENDPROC
ENDDEFINE