一、列表框,additem和addlistitem两种方法都可以向列表框中添加数据,其中additem方法可以按索引号添加记录,而addlistitem方法是用ID号添加记录,使用这两种方法添加数据项时必须要求ROWSOURCETYPE属性值为0或为1
controladditem(cItem [,nIndex] [,nColumn]) 其中,cItem是要添加的数据项内容,nIndex是索引号。如果指定了有效的nIndex值,cItem将放置在控制的正确位置;如果指定的nIndex已经存在,数据项将插入到这个位置,在这个数据项后面的其它所有数据项在组合框或列表框控制的列表区中向下移一个位置。nColumn将指定数据项要加入的列,默认值为1
addlistiem方法的语法如下
controladdlistiem(cItem [,nItemID] [,nColumn])
其中,cItem和nColumn是要添加的数据项内容和要加入的列。nItemID是要添加数据项的惟一ID号,如果指定的nItemID已经存,则用cItem覆盖当前ID数据项的内容。
二、文本框
thisformtext1value="你好"
以上用命令的方式添加,也可以直接添加
可以设置文本框的数据类型,
thisformtext1value="" &&设置为字符型
thisformtext1value=0 &&设置为数值型
thisformtext1value={} &&设置为日期型VFP9 的话可以在向数据库添加表时使用全选或多选
VFP6 的话不知道可不可以,但可以执行以下代码实现(改改其中三行就行)
CLEAR
LOCAL i,n
DIMENSION aF(1)
LOCAL cPath,cDbf
cPath = "D:\aaa\" && 改为你的目录(30个dbf放里面)
n = ADIR(aF, cPath+"\dbf", "AHS")
IF !DBUSED("数据1") && 改为你的数据库名称
OPEN DATABASE "数据1dbc" && 改为你的数据库名称
ENDIF
FOR i = 1 TO n
IF aF[i,1] = "" OR aF[i,1] = ""
LOOP
ENDIF
cDbf = cPath + aF[i,1]
ADD TABLE &cDbf
ENDFOR
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)