1,451
社区成员
发帖
与我相关
我的任务
分享Combox多列显示
Dim conn As New SqlConnection(clspub.conn)
conn.Open()
Dim comm As New SqlCommand
comm.Connection = conn
comm.CommandText = "select emp_no,emp_name from employee where depotment like '%统%'"
Dim dr As SqlDataReader
dr = comm.ExecuteReader
While dr.Read
txtempno.Items.Add(dr.GetString(0))
End While
dr.Close()
conn.Close()
comm.Dispose()
以上代码是COMBOX取数据库资料, 但每次点击只有一列出来, 请问各位高手能否出来多列呢
conn.Open()
Dim comm As New SqlCommand
comm.Connection = conn
comm.CommandText = "select emp_no,emp_name from employee where depotment like '%统%'"
Dim dr As SqlDataReader
dr = comm.ExecuteReader
While dr.Read
txtempno.Items.Add(dr.GetString(0))
End While
dr.Close()
conn.Close()
comm.Dispose()
以上代码是COMBOX取数据库资料, 但每次点击只有一列出来, 请问各位高手能否出来多列呢
...全文
请发表友善的回复…
发表回复
chinaboyzyq 2009-08-15
- 打赏
- 举报
txtempno.additem dr.GetString(0) & Space(2) & dr.getstrring(1)
clear_zero 2009-08-14
- 打赏
- 举报
txtempno.additem dr.GetString(0) & "-" & dr.getstrring(1)
饮水需思源 2009-08-14
- 打赏
- 举报
txtempno.additem dr.GetString(0) & "-" & dr.getstrring(1)
