你一定要坚强，即使受过伤，流过泪，也能咬牙走下去。因为，人生，就是你一个人的人生。 ==============================================================================
Private Sub Form1_Load(…) Handles MyBase.Load ‘程序功能：初始化ComboBox1，填充值为学号。
Dim myconn As SqlConnection = New SqlConnection(\Security=SSPI;Initial Catalog=tjdb\ Dim mysql as String
mysql = \
Dim myadapter As SqlDataAdapter = new SqlDataAdapter(__A_____) Dim mydataset As New DataSet myadapter.Fill(mydataset, \学号\
Me.ComboBox1.DataSource = mydataset.Tables(\学号\ Me.ComboBox1.DisplayMember = ______B_________________
End Sub
Private Sub ComboBox1_SelectedIndexChanged(…) Handles ComboBox1.SelectedIndexChanged ‘程序功能：在ComboBox1中选取不同的学号时，右侧的DataGrid1中将显示对应\的选课记录。 Dim myconn As SqlConnection = New SqlConnection(\Security=SSPI;Initial Catalog=tjdb\ Dim mycmd As New SqlCommand mycmd.Connection = myconn
mycmd.CommandText =_____________C__________________________ Dim myadapter As SqlDataAdapter = New SqlDataAdapter(mycmd) Dim mydataset As New DataSet ______________D____________
Me.DataGrid1.DataSource = mydataset.Tables(\课程成绩\
Me.DataGrid1.CaptionText = \Me.ComboBox1.Text) + \的课程成绩\
End Sub
A： mysql, myconn
B：mydataset.Tables(\学号\
C： \cnum as 课程号,score as 分数 from sc where snum='\& Me.ComboBox1.Text & \
D： myadapter.Fill(mydataset, \课程成绩\
命运如同手中的掌纹，无论多曲折，终掌握在自己手中 ============================================================== 你一定要坚强，即使受过伤，流过泪，也能咬牙走下去。因为，人生，就是你一个人的人生。 ==============================================================================
命运如同手中的掌纹，无论多曲折，终掌握在自己手中 ==============================================================