vb下拉框代码

是不是这样：
private sub form_load()
dim R as string
open "c:\1txt" for input as #1 '假设你的文档是c:\1txt
do while not eof(1)
line input #1,r
Combo1additem r
loop
close #1
end sub
如果这样，就直接用1txt，但要注意的是你的1txt要和你的程序放在同一文件夹中。

文本框中的text1datasource选中ADODC1
响应datagrid的双击事件
adodc1index与你表中的字段名一一对应
（adodc1index是选中的第几行）
譬如你选中第2行，adodc1index= 2
这时你可选中对应的字段名
然后 text1datafile = 字段名
就可显示表中对应的数据
有疑问可以再问我！！

树状结构使用treeview实现，控件添加方法：右击“工具箱”-“部件”-microsoft
windows
common
controls
60-确定，应用
下面是简单的添加删除方法，
option
explicit
‘添加项目
private
sub
command1_click()
dim
nodx
as
node
set
nodx
=
treeview

---