您的位置：程序门 -> vb -> 控件

datalist刷新

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

datalist刷新

发表于：2007-09-16 08:12:16 楼主

我在vb里添加了一个datalist控件和ado控件，ado控件是与acess数据库连接的，我在窗体上做了一个添加按钮和文本框，我想通过点击这个按钮以后把文本框的内容添加大数据库里，并且在datalist上列出来，但是我在添加的时候datalist上并不能把添加的内容马上显示出来，只有在添加下一个项时，前面添加的那个项目才能才datalist上列出来，下面是我写的代码，请大家帮我看看是什么问题，谢谢！
private sub cmd_add_click（)
if len（vba.trim（txtname)) = 0 then
msgbox （ "请输入分类名称 ")
txtname.setfocus
exit sub
end if

if mytype.in_db（vba.trim（txtname), 1) = true then
msgbox （ "已经存在此分类名称 ")
txtname.setfocus
exit sub
end if
with mytype
.typename = vba.trim（txtname)
.typeid = 1
.insert
end with
datarefresh
txtname.text = " "

end sub
private sub datarefresh（)

adodc1.connectionstring = conn

adodc1.recordsource = "select * from types where typeid=1 "
adodc1.refresh

set datalist1.rowsource = adodc1
datalist1.listfield = "typename "
datalist1.boundcolumn = "id "
datalist1.refresh
end sub
为什么datalist不能刷新数据

发表于：2007-09-16 08:52:411楼得分:0

改用ado而不是adodc控件

其他资讯