编程的方法增加字段后 显示字段的问题
用:
USE gc
ALTER TABLE gc ADD &gcFileName c(&gcGileLengh)
添加了一个字段
我想用:
AFIELDS(gc_filename)
thisform.label1.caption=gc_filename(1,1)
这样的方法把第一个字段显示出来
但是如果没有预先添加一个label标签的话,就会显示错误。
如何用程序来添加一个LABEL标签呢?
或者不用LABEL来显示??
[解决办法]
Thisform.AddObject("Label1","Label") &&Label1 在表单不能有重名的,所以建议用特殊名字,而且只添加一次
Thisform.Label1.Visible=.T.
Thisform.Label1.Move(100,200,50,25) &&100Left,200Top,50Width,25Height
[解决办法]
经试验,可用如下方法解决:
在表单的确init事件中,定义一个全局变量
public ntop
在增加字段的代码中,有如下:
USE ac
x=(thisform.text1.value)
ALTER TABLE ac add column &x c(20)
Thisform.AddObject("label1","Label")
&&Label1 在表单不能有重名的,所以建议用特殊名字,而且只添加一次
Thisform.Label1.Move(100,ntop,50,25) &&100Left,200Top,50Width,25Height
Thisform.Label1.Visible=.T.
ntop=thisform.label1.top+12
thisform.label1.caption=x
thisform.label1.name=x
说明:示意代码,命名不规范