回复 楼主 kaximoduo555
示例:
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
程序代码:
CREATE CURSOR tt (f1 I, f2 I)
INSERT INTO tt VALUES (1, 2)
? FIELD(1), FIELD(2)
a = "f2"
w = "ff2"
ALTER table tt rename (a) to (w)
? FIELD(1), FIELD(2)
of = CREATEOBJECT("form1")
of.show(1)
DEFINE CLASS form1 as Form
Top = 100
Left = 100
ADD OBJECT Text1 as TextBox WITH top=10,left=10
ADD OBJECT Text2 as TextBox WITH top=40,left=10
PROCEDURE Init
FOR i = 1 TO FCOUNT()
sCmd = "thisform.Text"+TRANSFORM(i)+".Value = FIELD("+TRANSFORM(i)+")"
_VFP.DoCmd(sCmd)
ENDFOR
ENDPROC
ENDDEFINE