怎么能把某一字段的代码全部从代码表中显示出来?

Question

 理解：是将某个字段得值显示出来，并允许修改？
最简单的办法：绑定一个recordset在datagrid上，然后修改即可
如：
rsTemp.open "select fldname from tbname",connect,adOpenStatic, adLockOptimistic
set data1.recordset=rstemp

Answer 1

比如表一：姓名，性别两个字段，以dbgrid或表单形式显示，我想在性别字段上做下拉框，显示代码表的值，即：男；女，

Answer 2

啊，就这个啊！
如果用combobox的话就
前提：你的连接结果集等等都已取到！
combobox.clear
do while not rst.eof
combobox.additem rst("字段名")
rst.movenext
loop

Answer 3

啊，就这个啊！
如果用combobox的话就
前提：你的连接结果集等等都已取到！
dim xinb as string
combobox.clear
do while not rst.eof
if rst(0)=1 then 
xinb="男"
elseif rst(0)=2 then
xinb="女"
endif
combobox.additem xinb
rst.movenext
loop