- 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=145308)
-- 发布时间：2020/1/15 17:06:00
-- 这个下拉的可见行数怎么设置呢？
咨询一下，设置这个动态列表，这个下拉的可见行数怎么设置呢？比如要把6行扩大到10行。
此主题相关图片如下：微信截图_20200115170703.png
[此贴子已经被作者于2020/1/15 17:07:34编辑过]
-- 发布时间：2020/1/15 17:10:00
--
可见行数无法设置。可以考虑使用自定义下拉窗口：http://www.foxtable.com/webhelp/topics/2116.htm
-- 发布时间：2020/1/16 11:58:00
-- 回复：（有点蓝）可见行数无法设置。可以考虑使用自定...
下面的代码不起作用，能否帮忙看看
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "流程名称" Then
If e.NewValue Is Nothing Then
e.DataRow("流程名称") = Nothing
Else
dr = DataTables("流程架构维护").Find("[一级业务流程]= \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("流程编号") = dr("流程编号")
ElseIf dr IsNot Nothing Then
dr = DataTables("流程架构维护").Find("[二级业务流程]= \'" & e.NewValue & "\'")
ElseIf dr IsNot Nothing Then
dr = DataTables("流程架构维护").Find("[三级业务流程]= \'" & e.NewValue & "\'")
ElseIf dr IsNot Nothing Then
dr = DataTables("流程架构维护").Find("[四级业务流程]= \'" & e.NewValue & "\'")
ElseIf dr IsNot Nothing Then
dr = DataTables("流程架构维护").Find("[五级业务流程]= \'" & e.NewValue & "\'")
ElseIf dr IsNot Nothing Then
dr = DataTables("流程架构维护").Find("[六级业务流程]= \'" & e.NewValue & "\'")
End If
End If
End If
-- 发布时间：2020/1/16 12:10:00
--
If e.DataCol.Name = "流程名称" Then
If e.NewValue Is Nothing Then
e.DataRow("流程名称") = Nothing
Else
Dim dr As DataRow = DataTables("流程架构维护").Find("[一级业务流程]= \'" & e.NewValue & "\' or [二级业务流程]= \'" & e.NewValue & "\' or .....自己补充完整......","一级业务流程,二级业务流程,...........")
If dr IsNot Nothing Then
e.DataRow("流程编号") = dr("流程编号")
Else
e.DataRow("流程名称") = Nothing
End If
End If
End If
-- 发布时间：2020/1/16 12:51:00
-- 回复：（有点蓝）If e.DataCol.Name = "流程名称" The...
Find这个用法感觉非常的灵活啊。