1 datagrid中加入按钮后如何往下拉框中加入内容2 从数据库中往combol中加入item,老是加不全,前几项不缺,后几项缺失较多
3 formload c7=1,d2为datagrid
Private Sub Combo1_Click(Index As Integer)
If Index < c7 - 1 Then
GoTo 21
End If
Load Combo1(c7)
Combo1(c7).Visible = True
Combo1(c7).Top = Combo1(c7 - 1).Top + Combo1(c7 - 1).Height
j = 0
20
d2.Row = j
If d2.Columns(4).Text <> "" Then
j = j + 1
'Combo1(c7).AddItem d2.Columns(4).Text
GoTo 20
End If
c7 = c7 + 1
21