Private Sub Cmb1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cmb1.Click
Dim Inum As Integer
Daset = New DataSet()
Daset = GetDataSet("select 院系班级号 from 院系班级表")
If Daset Is Nothing Then
MsgBox("系统没有发现有院系班级号!" + Chr(13) + "请到院系班级编辑器添加,谢谢合作!")
Else For Inum = 0 To Daset.Tables(0).Rows.Count - 1
Cmb1.Items.Add(Str(Daset.Tables.Item(0).Columns))
Next
End If
End Sub
这句话发生问题!
Cmb1.Items.Add(Str(Daset.Tables.Item(0).Columns))
请问怎么获取表中数据添加到Cmb1控件
Dim Inum As Integer
Daset = New DataSet()
Daset = GetDataSet("select 院系班级号 from 院系班级表")
If Daset Is Nothing Then
MsgBox("系统没有发现有院系班级号!" + Chr(13) + "请到院系班级编辑器添加,谢谢合作!")
Else For Inum = 0 To Daset.Tables(0).Rows.Count - 1
Cmb1.Items.Add(Str(Daset.Tables.Item(0).Columns))
Next
End If
End Sub
这句话发生问题!
Cmb1.Items.Add(Str(Daset.Tables.Item(0).Columns))
请问怎么获取表中数据添加到Cmb1控件
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货