问一个关于vb的grid控件的问题
答案:2 mip版
解决时间 2021-01-16 14:27
- 提问者网友：落叶、牵绊着思念
- 2021-01-15 23:09
怎样把grid控件里选择的内容添加到text控件中？
最佳答案
- 二级知识专家网友：你可以浪但我不會等
- 2021-01-15 23:29
dim 记录集 as new adodb.recordset
open "记录集",连接
text控件.text=记录集(记录)
open "记录集",连接
text控件.text=记录集(记录)
全部回答
- 1楼网友：陪我去流浪
- 2021-01-16 01:07
行啊：
dim cn as new adodb.connection
dim rs as new adodb.recordset
public function adodbjet(optional dbfile as string, _
optional pwd as string) as adodb.connection
on error resume next
dim defdb as string '数据库文件请自行设置
defdb = app.path & "\bond.mdb"
if dbfile = "" then dbfile = defdb
set adodbjet = new adodb.connection
adodbjet.open "provider=microsoft.jet.oledb.4.0;" & _
"persist security info=false;user id=admin; " & _
"jet oledb:database password=" & pwd & "; data source=" & dbfile
if adodbjet.state <> 1 then set adodbjet = nothing
end function
private sub form_load()
set cn = adodbjet
if cn.state = 1 then
rs.open "select * from member2", cn, 1, 2
set vg1.datasource = rs
end if
with vg1
.editable = flexedkbdmouse '可用键盘和鼠标编辑
.allowuserresizing = flexresizebothuniform '可用鼠标调整单元大小, 如果值为“flexresizeboth”则单独调整行高或列宽
.scrolltrack = true '行随滚动条翻滚
.wordwrap = true '单元中的文本过长换行显示
.additem "" '添加一行为了新增内容
end with
end sub
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯