主题：[求助] 这段代码怎么改？

帮助里 有三列。我实际运用，只有后两列。试着改，不行。求助各位老师及前辈!
此主题相关图片如下：qq图片20170321091538.png

劳驾老师给帮助一下

Dim cmb As WinForm.ComboBox = e.Sender
If cmb.Items.Count > 0 Then '如果已经设置了项目
    Return '则返回
End If
Dim c As Col = cmb.BindCol '获得绑定的Col
Dim dr As DataRow = DataTables("项目").Find("[列] = '" & c.Name & "'")
If dr IsNot Nothing Then '如果在项目表找到对应的行
    cmb.Combolist = dr("列表项目") '则设置列表项目
End If

好像不起作用~~

 上传实例说明问题