主题：复选列表框取值？

Dim clb As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1")
clb.Combolist = DataTables("明细表").GetComboListString("品名","打印 = 0")

1、上述代码将排除重复的“品名”，如何不排除重复的“品名”。

2、如何多列显示，如同时显示“编号，品名”，在一行显示。