表格控件滚动条绑定的问题
求教各位老师,我表单上的一个表格控件,显示多列内容,每次点击表单上的命令按钮会增加一些数据,数据增加,列数也增加,如何绑定左右的滚动条自动到右边,显示后面的数据?
程序代码:CREATE CURSOR tt (f1 I DEFAULT 1)
APPEND BLANK
FOR i=2 TO 20
ALTER TABLE tt ADD COLUMN ("f"+TRANSFORM(i)) I
ENDFOR
of = CREATEOBJECT("form1")
of.show(1)
RETURN
DEFINE CLASS form1 as Form
ADD OBJECT cmd1 as commandbutton WITH left=10,top=10,height=22
ADD OBJECT grid1 as grid WITH left=10,top=40
PROCEDURE cmd1.click
thisform.grid1.setfocus
thisform.grid1.ActivateCell(1,FCOUNT("tt"))
ENDPROC
ENDDEFINE