首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

编程的方法增加字段后 显示字段的有关问题

2012-02-17 
编程的方法增加字段后 显示字段的问题用:USE gcALTER TABLE gc ADD &gcFileName c(&gcGileLengh)添加了一

编程的方法增加字段后 显示字段的问题
用:
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

说明:示意代码,命名不规范

热点排行