标题：如何列表框项目多值对应关系

此主题相关图片如下：pic16.jpg

如上图所示，复制项目使用一个checkedListBOx的控件，显示的是数据表的标题，但在确定按钮中使用的是列表中选中项目所对应的表的字段名，如何建立这种关系？

找出此标题对应的列名：

Dim c as String = "产品名称"

For each dc as DataCol In DataTables("xxx").DataCols

    If dc.CAption = c then

       c = dc.Name

   end if

next

MessageBox.show(c)