VB高效利用网格控件
首先添加三个窗体,如,form1,form2,form3
form1只有网格控件(ml),form2里只有一个菜单,菜单中有一个子菜单(menu,a),form3里有两个文本框和一个按钮(txt,txt1,cmd)
然后form1加载时连接数据库,将一表数据读到ml中,然后编辑鼠标按下事件,
代码如下
form1主要代码
if button=vbleftbutton then
if ml.col=1 then
poupu form2.menu
end if
end if
form2主要代码
在点击a时form3.show
form3主要代码
在窗体加载事件中连接数据库,将一表的主键列读到txt.text中,即txt.text=form2.ml.text
txt1.text=记录集对象("除主键外的任何一列")
这样就将数据读到文本框里了
接下来在按钮的click事件中编写代码
写sql修改命令即strsql="update 一表 set 除主键外的任何一列='" & txt1.text &'" where 主键列='" & txt.text &"'
set 记录集对象=nothing
然后重新打开记录集对象,将数据读到ml中
接着unload me
完成
注意:这里所谓高效利用的意思是点击网格控件的主键列是弹出一个可以修改数据的菜单,在数据量较小时可以达到数据动态修改的效果,非常实用,而form2在整个程序中起着借鸡下蛋的作用。
本人VB初学者,希望大家指点