以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  什么鬼？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90829)
--  作者：hbhb
--  发布时间：2016/9/22 15:07:00
--  什么鬼？
大师：明明没有设置某表某一列的下拉列表，进入此表后就有下拉列表？非要设置一下e.cancel = true 才没有？什么意思？
--  作者：有点蓝
--  发布时间：2016/9/22 15:19:00
--  
都是自己搞的鬼。肯定有地方设置到了。

副本和关联表是会继承的
--  作者：hbhb
--  发布时间：2016/9/22 15:45:00
--  
如何查找是哪个事件写的？我仔细查找半天，绑定的表事件，全局事件都找了。
--  作者：hbhb
--  发布时间：2016/9/22 16:03:00
--  
表a的PrepareEdit事件写的如下代码
Select Case e.Col.name
    Case "zcfzb1","zcfzb2","zcfzb5","zcfzb6"
        e.Cancel = True
    Case Else
        e.Cancel = False
End Select
表bPrepareEdit事件写的如下代码
Select Case e.Col.Name
    Case "zcfzb10","zcfzb12","zcfzb14","zcfzb16","zcfzb19","zcfzb21","zcfzb23","zcfzb25"
        If e.Row("zcfzb27") <> e.Row("zcfzb9") Then
            e.Col.AllowDirectType = False
            Dim tb As New DropTreeBuilder
            tb.SourceTable = DataTables("hbdtbbsjcjwb") \'指定目录树表
            tb.TreeCols = "bb4|bb5" \'指定用于生成目录树的列
            tb.TreeFilter = "bb2 = \'" & zgsztzz & "\' and bb3 = \'利润表\'"
            tb.TreeSort = "_sortkey"
            tb.SourceCols = "bb5" \'指定数据来源列
            tb.ReceiveCols = e.Col.Name
            e.Col.DropTree = tb.Build()
        Else
            e.Cancel = True
        End If
        
End Select

窗口中的表条件绑定
if a = 1 then
窗口中的表绑定表a
else
窗口中的表绑定表b
end if

于是，鬼就出现了 ，当绑定的是表b时，"zcfzb1","zcfzb2","zcfzb5","zcfzb6" 列就出现莫名其妙的下拉列表，显示的是数字，好像是该列的宽度？
--  作者：有点蓝
--  发布时间：2016/9/22 16:33:00
--  
怎么绑定的？fill还是datasource
--  作者：hbhb
--  发布时间：2016/9/22 16:37:00
--  
datasource
--  作者：有点蓝
--  发布时间：2016/9/22 17:09:00
--  
按你的方式模拟了一下，没有发现这个情况