- 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=172549)
-- 发布时间：2021/10/19 9:23:00
-- 窗口控件列表项目
1、帮助中的示例
此主题相关图片如下：1.png
2、我的控件
此主题相关图片如下：2.png
3、下拉列表
此主题相关图片如下：3.png
4、我的代码错在哪？
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
此主题相关图片如下：2.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
--
没有绑定。试了一下，绑定也不行。