如何读取某一列里的多个字符串，并显示在datacombo组件的下拉菜单里
运行环境 vb6.0+sql
表information中有其中一列cinforvalue数据
如图：
Autoid cinforvalue price
01 ,0.10,0.20,0.21,0.25,0.48,0.09,0.27，(等规格) 8.0
省略了部分数据库连接代码，我的程序源码
Private Sub Form_Load()
Dim arry() As String ?
sqlstr2 = "select cinforvalue from information"
Adodc2.RecordSource = sqlstr2
arry = Split(sqlstr2, ",")
For i = 0 To UBound(arry)
Set datacombo1..RowSource = Adodc2
datacombo1.ListField = "cinforvalue"
Next
End Sub
运行结果如下: datacombo1.里的就一行显示，0.10,0.20,0.21,0.25,0.48,0.09,0.27
?，我要怎么才会显示一个规格一行的数据呢？
就是datacombo1下拉菜单里
显示
0.10
0.20
0.21
0.25
0.48
0.09
0.27
请高手指教！
[解决办法]
直接绑定肯定要这样显示的,你绑定的是表的字段,控件当然会按字段值原样显示给你...
有一个方法是,如你使用的是SQLSERVER,你可以写一个存储过程来构建并返回一个临时表,这个临时表的结构是这样的:
utoid cinforvalue price?
01 0.10 8.0
01 0.20 8.0
01 0.21 8.0
01 0.25 8.0
01 0.48 8.0
01 0.09 8.0
01 0.27 8.0
然后你再绑定这个cinforvalue字段即可.
[解决办法]
Autoid cinforvalue price?
01 0.10 8.0
01 0.20 8.0
01 0.21 8.0
01 0.25 8.0
.....
表中的数据这样输入,再绑定这个cinforvalue字段即可
[解决办法]
arry = Split(sqlstr2, ",")?
For i = 0 To UBound(arry)?
? datacombo1.Additem arry(i)
Next
[解决办法]
arry获取到的值
然后split拆分数组
用数组逐一填充combo
[解决办法]
将数填写到数组中再从数组中逐一读出填充到combo里,或则直接从数据库里读取.
