- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]下拉目录树赋值不成功 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124494)
-- 发布时间：2018/9/7 11:53:00
-- [求助]下拉目录树赋值不成功
老师，
为何表的当前行下拉目录树当前单元格不能被赋值，代码查看多遍，绝对没问题。
莫非是当前单元格处于编辑状态，我看到鼠标在闪动，怎么处理呢？
如何能不让当前单元格进行编辑，只能下拉目录树？
[此贴子已经被作者于2018/9/7 12:08:59编辑过]
-- 发布时间：2018/9/7 12:10:00
--
1、你的赋值代码怎么写的，贴出来看看；
2、msgbox弹出一下你赋的值是否正确，如果正确有可能是你表、行弄错了，或者datacolchanged等事件有影响代码
-- 发布时间：2018/9/7 12:18:00
--
确确实实没问题
怎么能让单元格只能DROPDOWN的目录树选定，不允许录入？
-- 发布时间：2018/9/7 12:20:00
--
赋值代码，这块除了当前单元格（绑定目录树DROPDOWN的不能赋值，其他都有数据）
If e.Node.name<>"全部" Then
If e.Node.Nodes.Count = 0 Then
If e.Form.DropDownBox IsNot Nothing Then
Dim ary() As String = e.node.Text.Split(" ")
Dim ary1() As String = vars("tblcol").split(".")
Dim dtname As String=Tables(ary1(0)).DataTable.name
Dim dr As DataRow = DataTables("zadropset").Find("[dropbintable] =\'"& dtname &"\' And [dropbincol] =\'"& ary1(1) &"\'")
If dr IsNot Nothing AndAlso dr.IsNull("droplistcol")=False AndAlso dr.IsNull("dvaluecol")=False Then \'如果在项目表找到对应的行
Dim Parts(),Parts1(),Parts2() As String
Dim i As Integer
Parts1=dr("droplistcol").Split(",")
Parts2=dr("dvaluelist").Split(",")
Dim dr1 As DataRow = DataTables(dr("dvaluetable")).Find(dr("dvaluecol") & "=\'"& e.Node.name &"\'")\'获取生成此节点的DataRow
If dr1 IsNot Nothing Then
For i=0 To Parts1.Length-1
If Tables(ary1(0)).Cols.Contains(Parts1(i)) Then
Tables(ary1(0)).Current(Parts1(i)) = dr1(Parts2(i))
End If
Next
End If
e.Form.DropDownBox.CloseDropdown
End If
End If
End If
End If
-- 发布时间：2018/9/7 12:27:00
--
下拉的列，要这样赋值，如
e.Form.DropDownBox.value = "aaabbbccc"
-- 发布时间：2018/9/7 15:19:00
--
就是这个问题
老师，
下拉窗口，打开后 会一直下拉，除非点击下拉单元格，才会关闭，怎么能优化下
-- 发布时间：2018/9/7 15:21:00
--
测试没有问题，请上传实例说明
-- 发布时间：2018/9/7 15:33:00
--
是这个意思
-- 发布时间：2018/9/7 15:52:00
--
我知道是这个意思。问题是不知道你是怎么用的，最好有例子测试。我用帮助的例子，自己做的例子都没有问题
-- 发布时间：2018/9/7 16:01:00
--
帮助是 那个例子？