问一个弱弱的问题,关于参数传递

Question

需要对某一表进行登记:
table1:
用户名    用户属性值
aaa        1
bbb        2
ccc        1
ddd        1table2:
用户属性值 属性名称
1           同志
2           朋友我在添加时,下拉列表(COMBO)里显示是同志\朋友
如果将他们的值1\2 在添加某一用户时(如eeee,1[在列表中选择同志]))
存储进去,因为我不能用获取combo1.text的值来写数据库

Answer 1

用Combo1.ListIndexif Combo1.ListIndex=0 then
  用户属性值=1
elseif Combo1.ListIndex=1 then
  用户属性值=2
end if

Answer 2

晕,当然属性值不止1和2 了,我是想通过combo1来传递到属性名和属性值 的关系

Answer 3

是啊,如何将combo1.listindex值和真正的属性值联系起来呢

Answer 4

combo1.value=combo1.column(index,row)

Answer 5

'==加载用户属性
rs.open "select * from table2",1,2
do while not rs.eof 
  combo1.additem(rs(1)&"")
  combo1.itemdata(combo1.newindex)=rs(0)
  rs.movenext
loop'======添加用户时
if combo1.listindex<0 then exit sub '==没有选择用户属性则退出用户添加过程
sqlstr="insert into table1 (用户名，用户属性) value('" & username & "'," & combo1.itemdata(combo1.listindex)& ")"
cnn.execute sqlstr

Answer 6

(1)建表：建一个对应关系表　用户属性值———用户属性名称
(2)在加载combo的items的时候用tag属性保存对应关系
如：
　comboObj.additem("同志"，comboObj.itemcount)
　comboObj.list(cmbObj.itemCount-1).tag =你想设置得对应用户属性值
　　　　。
　comboObj.additem("朋友"，comboObj.itemcount)
　comboObj.list(cmbObj.itemCount-1).tag =你想设置得对应用户属性值

Answer 7

row是什么呢,combo1.additem 只加了属性名?