有2个表
table1:
编号 职位
01 经理
02 工程师
03 工人
table2
编号 姓名
01-01 王
01-02 杨
02-01 李
02-02 周
03-01 陈
03-02 郑
我想用第一个combobox显示职位，根据编号另一个combobox显示具有此职位职位的人名
还如何实现这个功能啊？
在此先谢谢了

[此贴子已经被作者于2006-4-4 19:19:32编辑过]

自己先顶一下

table2
编号 姓名
01-01 王
01-02 杨
02-01 李
02-02 周
03-01 陈
03-02 郑

这个里的编号怎么是这样的，01-01时怎么回事？

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim arr1 As New ArrayList
sql = "select hua.name as name from hua where hua.id in (select ip.id from ip where ip.pno='" & ComboBox1.SelectedValue.trim & "')"
Dim conn As New SqlConnection(strConn)
Dim comm1 As New SqlCommand(sql, conn)
If conn.State <> ConnectionState.Open Then conn.Open()
Dim rd1 As SqlDataReader = comm1.ExecuteReader
If rd1.HasRows Then
While rd1.Read
arr1.Add(rd1.Item("name"))
End While
End If
ComboBox2.DataSource = arr1
rd1.Close()
comm1.Dispose()
conn.Close()
conn.Dispose()
End Sub
自己对号这改一下就行了

呵呵,这是一个典型的数据读取器的问题.可以提供给你一种2个combobox的方法
先选职位,有此职位的人则显示在combobox2中
具体的代码如下
imports system.data.sqlclient
Public Class Form1
Inherits System.Windows.Forms.Form
'windows窗体自动生成代码
dim conn as new sqlconnection("server=.;database=Student;integrated security=sspi")
dim comm as new sqlcommand
dim ds as new dataset
dim da as new sqldataadapter
dim reader1 as sqldatareader

dim i as integer
'load事件中的代码
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
comm.Connection = conn
comm.CommandType = CommandType.Text
comm.CommandText = "select * from 职工信息"
reader1 = comm.ExecuteReader()
If reader1.HasRows Then
If reader1.Read Then
For i = 0 To reader1.FieldCount - 1
ComboBoxsel.Items.Add(reader1.GetName(i))
Next
End If
reader1.Close()
If conn.State = ConnectionState.Open Then
conn.Close()
End If
End If
'combobox1中selectindexchanged的代码
ComboBoxfill.Items.Clear()
ComboBoxfill.Text = ""
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
comm.Connection = conn
comm.CommandType = CommandType.Text
comm.CommandText = "select distinct " & ComboBoxsel.SelectedItem & " from 职工信息 "
reader1 = comm.ExecuteReader()
If reader1.HasRows Then
While reader1.Read
ComboBoxfill.Items.Add(reader1(0)) '这个地方与表的字段有关系,要修改
End While
End If
reader1.Close()
If conn.State = ConnectionState.Open Then
conn.Close()
End If
注意:要是多个表的话,需注意各个表之间的联系

谢谢楼上个位大虾,小弟在此谢过了