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