主题：ListBox1同时显示两列值

 Dim Arys As List(Of String())
Dim mystr As String
Arys = DataTables("表A").GetValues("第一列|第二列") '列名用符号|分割
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
For Each Ary As String() In Arys
    mystr = Ary(0) & "-" & Ary(1)
    lst.Items.Add(mystr)
Next