Foxtable(狐表)用户栏目专家坐堂 → [求助]关于ListBox控件的一个用法


  共有9268人关注过本帖树形打印复制链接

主题:[求助]关于ListBox控件的一个用法

帅哥哟,离线,有人找我吗?
狐狸爸爸
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/11 9:33:00 [只看该作者]

cmd.CommandText = "select Distinct (dbjh1+ ',' + dbjh2) As a From kfpt_daa051 where jh = '12M190-160'"

 回到顶部
帅哥哟,离线,有人找我吗?
raystar27
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:54 积分:581 威望:0 精华:0 注册:2012/5/8 11:16:00
回复:(狐狸爸爸)cmd.CommandText = "select Distin...  发帖心情 Post By:2012/7/11 9:50:00 [只看该作者]

狐爸理解错我的意思了~~不是要列的提取,要行的提取~~如何传照片~~传一张狐爸就明白什么意思啦~~就是不是列向的字段,是横向的字段~~

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/11 9:52:00 [只看该作者]

我有点糊涂了,没有看懂你的问题。


 回到顶部
帅哥哟,离线,有人找我吗?
raystar27
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:54 积分:581 威望:0 精华:0 注册:2012/5/8 11:16:00
回复:(狐狸爸爸)我有点糊涂了,没有看懂你的问题。...  发帖心情 Post By:2012/7/11 10:05:00 [只看该作者]

图片点击可在新窗口打开查看
就是这样的一行字段,我用
"SELECT dbjh1,dbjh2,dbjh3,dbjh4,dbjh5,dbjh6,dbjh7,dbjh8,dbjh9,dbjh10 From kfpt_daa051 where jh = '12M190-160' "
可以提取这一行的数据嘛,但是我想用ListBox让这一行字段在空间里竖着的显示出来~~这样就说明白啦~~

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/11 10:13:00 [只看该作者]

我明白了哦,很简单的:

 

cmd.CommandText = "SELECT dbjh1,dbjh2,dbjh3,dbjh4,dbjh5,dbjh6,dbjh7 From kfpt_daa051 where jh = '12M190-160' "
dt = cmd.ExecuteReader()
if dt.DataRows.Count > 0 Then
     Dim ss as String
     Dim dr As DataRow = dt.DataRows(0)
     For each dc As DataCol in dt.DataCols
           ss = ss & "|" & dr(dc.name)
     Next
     lst.ComboList = ss
Else
    lst.ComboList = ""
Next

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/7/11 10:31:00 [只看该作者]

Dim str As String
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT DISTINCT 产品ID,产品名称 From {产品}"
dt = cmd.ExecuteReader()
cmb = e.Form.Controls("ComboBox1")
For Each cl As DataCol In dt.DataCols
    For Each dr As DataRow In dt.DataRows
        str = str & "|" & dr(cl.Name)
    Next
Next
cmb.ComboList= str

 回到顶部
帅哥哟,离线,有人找我吗?
raystar27
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:54 积分:581 威望:0 精华:0 注册:2012/5/8 11:16:00
回复:(狐狸爸爸)我明白了哦,很简单的: ...  发帖心情 Post By:2012/7/11 10:50:00 [只看该作者]

谢谢狐爸~~解决了我一个大难题!哈哈~~~不过还有一个问题,就是把这个东西给反过来呢,比如我的ListBox里面有7条数据,我想给这七条数据横向的更新数据库里面,应该肿么办~~~~图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
raystar27
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:54 积分:581 威望:0 精华:0 注册:2012/5/8 11:16:00
回复:(blackzhu)Dim str As StringDim cmd As New ...  发帖心情 Post By:2012/7/11 10:51:00 [只看该作者]

谢谢老朱啦~~~麻烦你们了哈~~

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/7/11 11:10:00 [只看该作者]

Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
For i As Integer = 0 To lst.Items.Count - 1
    If lst.SelectedIndex = i Then
        Dim r As Row = Tables("单列").AddNew
        r("大类") = lst.Items(i)
    End If
Next

 回到顶部
总数 19 上一页 1 2