Foxtable(狐表)用户栏目专家坐堂 → 关于DropForm


  共有2570人关注过本帖树形打印复制链接

主题:关于DropForm

美女呀,离线,留言给我吧!
sara
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
关于DropForm  发帖心情 Post By:2016/9/10 8:46:00 [只看该作者]

我想这样,就是Table表有一个逻辑列,这个列为True时候,用DropForm列出一个下拉表,如果为false就直接还是编辑框,可以自己输入内容,可以实现吗

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/10 9:38:00 [只看该作者]

可以用逻辑列来控制其它列是否有下拉表,不能控制逻辑列本身

Select Case e.DataCol.Name
    Case "第二列"
        If e.NewValue = True Then
            Tables(e.DataTable.Name).Cols("第三列").DropForm = "窗口1"
        Else
            Tables(e.DataTable.Name).Cols("第三列").DropForm = Nothing
        End If
End Select

 回到顶部
美女呀,离线,留言给我吧!
sara
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2016/9/10 9:53:00 [只看该作者]

在哪里写代码

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110572 积分:562750 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/10 9:55:00 [只看该作者]

DataColChanged

 回到顶部
帅哥,在线噢!
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/9/10 10:01:00 [只看该作者]

这个在PrepareEdit事件会更合适一些:

 

If e.Col.name = "第二列" Then
   If e.IsFocusCell And e.Row("逻辑列") = True Then
        e.Col.DropForm  = "窗口1"
   Else
        e.Col.DropForm  = ""
    End If
End If


 回到顶部