主题：第三方的代码 这个咋改? 也是论坛BIn的例子

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)

Dim  ts As new Windows.Forms.ToolStrip

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)

Next