1188
社区成员
3个
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
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
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
jtkkjtkk 2004-08-28
1）http://community.csdn.net/Expert/topic/3285/3285990.xml?temp=.97633
2）不知你是怎么加的？
3）把代码结构写清楚再贴出来。
2）不知你是怎么加的？
3）把代码结构写清楚再贴出来。
Andy__Huang 2004-08-28
這個控件不是那麼好用，請用第三方控件吧，推薦spread3.0
sangshuyezi 2004-08-28
劝楼主在代码中最好不要用goto语句。
