vfp列表框数据来源类型怎么设置

步骤如下：

1、在项目管理器中，设计表。

2、开启表单设计器。

3、添加文本框控件。

4、开启数据环境设计器。

5、设置CONTROLSOURCE属性，设置控件数据的来源。

6、运行。

请你们提问题时要表达清楚，最好贴图，

一、列表框，additem和addlistitem两种方法都可以向列表框中添加数据，其中additem方法可以按索引号添加记录，而addlistitem方法是用ID号添加记录，使用这两种方法添加数据项时必须要求ROWSOURCETYPE属性值为0或为1.

control.additem(cItem [,nIndex] [,nColumn]) 其中，cItem是要添加的数据项内容，nIndex是索引号。如果指定了有效的nIndex值，cItem将放置在控制的正确位置；如果指定的nIndex已经存在，数据项将插入到这个位置，在这个数据项后面的其它所有数据项在组合框或列表框控制的列表区中向下移一个位置。nColumn将指定数据项要加入的列，默认值为1.

addlistiem方法的语法如下

control.addlistiem(cItem [,nItemID] [,nColumn])

其中，cItem和nColumn是要添加的数据项内容和要加入的列。nItemID是要添加数据项的惟一ID号，如果指定的nItemID已经存，则用cItem覆盖当前ID数据项的内容。

二、文本框

thisform.text1.value="你好"

以上用命令的方式添加，也可以直接添加

可以设置文本框的数据类型，

thisform.text1.value="" &&设置为字符型

thisform.text1.value=0 &&设置为数值型

thisform.text1.value={} &&设置为日期型

举例：

假设一个表

table1,表内用于在组合框中显示并选择的字段名为

编号，且其唯一（即记录中同一编号的只有一条记录，这符合索引和逻辑）。下面写代码：

在from的init事件中写上:

use

table1

in

0

alias

table1

public

f

f=afields(a,"table1")

public

arrayfield(f)

thisform.combo1.rowsourcetype=

6

thisform.combo1.rowsource="table1.编号"

thisform.refresh

在form的destroy里写上：

release

arrayfield,f

select

table1

use

在组合框的interactivechange事件里写上：

b=val(alltrim(thisform.combo1.value))

**这里假设

编号

字段为数值型，所以要转化成字符型**

select

*

from

table1

where

񅧆=b

into

array

arr

for

i=1

to

f

store

arr(1,i)

to

arrayfield(i)

endfor

thisform.list1.rowsourcetype=

5

thisform.list1.rowsource="arrayfield"

thisform.list1.refresh

---