怎么读取某一列里的多个字符串，并显示在datacombo组件的下拉菜单里
如何读取某一列里的多个字符串，并显示在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里,或则直接从数据库里读取.
运行环境 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里,或则直接从数据库里读取.