以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 这段代码怎么改?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97917)

--  作者:静听枫雨
--  发布时间:2017/3/21 9:18:00
--  [求助] 这段代码怎么改?
帮助里 有三列。我实际运用,只有后两列。试着改,不行。求助各位老师及前辈!
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170321091538.png
图片点击可在新窗口打开查看

--  作者:静听枫雨
--  发布时间:2017/3/21 9:30:00
--  

劳驾老师给帮助一下


--  作者:有点色
--  发布时间:2017/3/21 9:31:00
--  
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

--  作者:静听枫雨
--  发布时间:2017/3/21 10:08:00
--  
好像不起作用~~
--  作者:有点色
--  发布时间:2017/3/21 11:17:00
--  
 上传实例说明问题