以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗口控件列表项目 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172549) |
-- 作者:实话实说 -- 发布时间:2021/10/19 9:23:00 -- 窗口控件列表项目 1、帮助中的示例 3、下拉列表 Dim cmb As WinForm.ComboBox = e.Sender If cmb.Items.Count > 0 Then \'如果已经设置了项目 Return \'则返回 End If Dim t As Table = cmb.BindTable \'获得绑定的Table Dim c As Col = cmb.BindCol \'获得绑定的Col Dim dr As DataRow = DataTables("下拉列表").Find("[下拉项目] = \'" & t.Name & "\' And [下拉内容] = \'" & c.Name & "\'") If dr IsNot Nothing Then \'如果在项目表找到对应的行 cmb.Combolist = dr("列表项目1") \'则设置列表项目 End If
|
-- 作者:有点蓝 -- 发布时间:2021/10/19 9:32:00 -- Dim cmb As WinForm.ComboBox = e.Sender msgbox(cmb.Items.Count) If cmb.Items.Count > 0 Then \'如果已经设置了项目 Return \'则返回 End If Dim t As Table = cmb.BindTable \'获得绑定的Table Dim c As Col = cmb.BindCol \'获得绑定的Col msgbox("[下拉项目] = \'" & t.Name & "\' And [下拉内容] = \'" & c.Name & "\'") Dim dr As DataRow = DataTables("下拉列表").Find("[下拉项目] = \'" & t.Name & "\' And [下拉内容] = \'" & c.Name & "\'") If dr IsNot Nothing Then \'如果在项目表找到对应的行 cmb.Combolist = dr("列表项目1") \'则设置列表项目 msgbox(dr("列表项目1") ) End If
|
-- 作者:实话实说 -- 发布时间:2021/10/19 10:33:00 -- 此主题相关图片如下:1.png |
-- 作者:有点蓝 -- 发布时间:2021/10/19 10:36:00 -- 调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错 控件有没有绑定表格?
|
-- 作者:实话实说 -- 发布时间:2021/10/19 10:36:00 -- PrepareEdit表事件可以,窗体控件还是不行 If e.Col.Name = "机台" Then If e.Row("工序") = Nothing Then e.Col.Combolist = DataTables("下拉列表").GetComboListString("下拉内容","下拉项目=\'机台\'") Else Dim fdr = DataTables("下拉列表").find("下拉项目 = \'工序\' and 下拉内容=\'" & e.Row("工序") & "\'") If fdr IsNot Nothing e.Col.Combolist = fdr("列表项目1") Else e.Col.Combolist = Nothing End If End If End If 此主题相关图片如下:3.png |
-- 作者:实话实说 -- 发布时间:2021/10/19 12:45:00 -- 这段代码为什么不行呢? Dim cmb As WinForm.ComboBox = e.Sender Dim dr As DataRow = DataTables("下拉列表").Find("[下拉项目] = \'工序\' and [下拉内容] = \'机台 \'") If dr IsNot Nothing Then \'如果在项目表找到对应的行 cmb.Combolist = dr("列表项目1") \'则设置列表项目 End If
|
-- 作者:有点蓝 -- 发布时间:2021/10/19 13:52:00 -- Dim dr As DataRow = DataTables("下拉列表").Find("[下拉项目] = \'工序\' and [下拉内容] = \'机台 \'") 有个空格 |
-- 作者:实话实说 -- 发布时间:2021/10/19 14:02:00 -- 还是不行,选择工序后,机台下拉是空的 1楼帮助文件中,绑定表和绑定列怎么理解? [此贴子已经被作者于2021/10/19 14:03:33编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/10/19 14:31:00 -- 绑定指这个:http://www.foxtable.com/webhelp/topics/0704.htm,组合框有没有使用绑定? |
-- 作者:实话实说 -- 发布时间:2021/10/19 14:50:00 -- 没有绑定。试了一下,绑定也不行。 |