如果受表格大小限制,可以只显示几个开头的字作为提示。
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