主题：第三方的代码 这个咋改? 也是论坛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

     Dim  tsi As new 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

e.Form.baseform.Controls.Add(ts)