Dim ts As new Windows.Forms.ToolStrip
Dim tsi As new Windows.Forms.ToolStripDropDownButton("页面集合")
Dim tsi1 As new Windows.Forms.ToolStripButton("页面1")
Dim tsi2 As new Windows.Forms.ToolStripButton("页面2")
Dim tsi3 As new Windows.Forms.ToolStripButton("页面3")
AddHandler tsi1.Click, AddressOf Button_Click
AddHandler tsi2 .Click, AddressOf Button_Click
AddHandler tsi3 .Click, AddressOf Button_Click
tsi.DropDownItems.Add(tsi1)
tsi.DropDownItems.Add(tsi2)
tsi.DropDownItems.Add(tsi3)
ts.Items.Add(tsi)
e.Form.baseform.Controls.Add(ts)
这个代码我用表直接设置但是不行:
Dim ts As new Windows.Forms.ToolStrip
Dim tsi As new 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
ts.Items.Add(Values(i))
drs = DataTables("表C").Select("[第一列] = '" & Values(i) & "'")
For Each dr As DataRow In drs
ts.Items(Values(i)).DropDownItems.Add(dr("第二列")) 这一句通不过应该咋改?
Next
Next
e.Form.baseform.Controls.Add(ts)
加好友 
发短信
Post By：2013/9/5 16:15:00 [只看该作者]
