1 可以 用SQL 语句 分别读入
2 可绑定. 类似于:
Adodc1.RecordSource = "Select AVG(Sales) " _
& " AS AverageSales From SalesTable"
Combo1.DataField = "AverageSales"
Adodc1.Refresh
3 没直接的,可随机 产生数, 并使之 在 ASC(a) 到 ASC(Z) 范围之间,
再 用 CHR()函数。
2 可绑定. 类似于:
Adodc1.RecordSource = "Select AVG(Sales) " _
& " AS AverageSales From SalesTable"
Combo1.DataField = "AverageSales"
Adodc1.Refresh
3 没直接的,可随机 产生数, 并使之 在 ASC(a) 到 ASC(Z) 范围之间,
再 用 CHR()函数。
解决方案 »
- 关于由数据作曲线的问题。急,在线等!
- 怎么在魔兽的全屏模式下 让窗体正常显示在最前面??
- 简体转繁体问题!!
- 以前记得有一个支持鼠标滚轮的程序叫MOUSEWHEEL现在在哪可以下载?
- 个人自建FTP服务器,内有免费电影,免费MP3歌曲,MTV及免费大型软件可供下载![但有小要求]
- 大哥们:求救~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
- mscomm如何接收彩信图片并把该彩信图片保存到本地电脑
- 有谁有报表ActiveReport方面的资料,中文的更好。
- 为什么动态改变数据环境时,数据报表报错!!
- 发布用了ado的vb程序,是否要注意ado连接路径?
- 如何调用chm帮助文件?
- mciExecute ("play " + "dd.wav") 可以用来播放WAV文件,问题是我怎么检测MCI设备是否正在被使用?
sql : select id from table
rs.movefirst
combox.sylets=2
do while not rs.eof
combox.additem rs!id
rs.movenext
loop
ok!!!比较傻的方法
strLetter=chr(asc("A")+int(rnd(1)*26))
strLetter就是A-Z的某个随机字母。如果是名字,则将名字存到一个数组Array()中,然后用下面的代码
dim strName as string
strName=Array(int(rnd(1)*(ubound(array())-lbound(array()))))
strName就是随机的名字
dim c as new collection '好象是这个类,你可以用VB代码编辑器的提示功能再确认一下
c.add "str1"
c.add "str2"
c.add "asdf"
c.add "...."然后随即从c中区一个记录:
debug.print c.item( int(rnd*c.count)+1 )