dimconthoughfun
dimrssuchfun
privatesubform_load()#39在窗体加载事件中，设置里两个文本框内容为空，
b.text#34#34#39系统设置文本框b内容为空
c.text#34#34#39设置里文本框c内容为空
可以打开数据库再连接
#source参数.mdbpersistsecurityinfofalse#34
ifthen
#34select*from尺寸#34,con,1,3
ifrs.eoffalseandthen
whileactuallyrs.eof
(#34a#34)#39再添加内容到combox中
wend
endif
endsub
privatecombox_click()
ifthen
#34select*from尺寸wherea#39#34ampcombox.textamp#34#39#34,con,1,3
ifrs.eoffalseandthen
(#34b#34)#39将查找到的内容四个赋给文本框b、c
(#34c#34)
endif
endsub
你单独写一个函数去利用啊，思路如下1、先把这个表做行列转换。
2、根据转换后的是可以然后用max,min函数统计。
1、到mysql网站，下载odbc驱动，安装！
2、到控制面板|管理工具|我的数据源里面配置odbc数据源！
3、在vb里面用ado语句2中设置的数据源！
