以下是引用jianjingmaoyi在2013-9-6 19:41:00的发言:
Dim ts As new Windows.Forms.ToolStrip
ts.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
e.Form.baseform.Controls.Add(ts)
Dim tsi As System.Windows.Forms.ToolStripDropDownButton
Dim s As String
Dim drs As List(Of DataRow)
s = DataTables("表C").GetComboListString("第一列")
Dim Values() As String = s.Split("|")
For i As Integer = 0 To Values.Length -1
tsi = New System.Windows.Forms.ToolStripDropDownButton(Values(i))
drs = DataTables("表C").Select("[第一列] = '" & Values(i) & "'")
For Each dr As DataRow In drs
tsi.DropDownItems.Add(dr("第二列"))
Next
ts.Items.Add(tsi)
AddHandler ts.Click, AddressOf Button_Click 这个地方这么写?
Next
参考