Foxtable(狐表)用户栏目专家坐堂 → 表格中,选择第一列,自动确定第二列的值的可选范围,并且第三列选择完后,自动确定第四列的值,该怎么写?


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

主题:表格中,选择第一列,自动确定第二列的值的可选范围,并且第三列选择完后,自动确定第四列的值,该怎么写?

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/15 12:05:00 [显示全部帖子]

datacolchanged事件

 

Select Case e.DataCol.Name

    case "一级分类", "二级分类", "三级分类"

        '用sqlFind查找对应的值

End Select

 

参考

 

http://www.foxtable.com/help/topics/2916.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/15 14:52:00 [显示全部帖子]

查到某行,取哪一个值都可以。看2楼例子

 

e.DataRow("第四列") = 某行("列名")


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/15 15:38:00 [显示全部帖子]

那就去写ChangeEdit事件

 

If e.Col.Name = "三级分类" Then '如果正在编辑的是三级分类
    Dim dr As DataRow
    dr=DataTables("问题类型表").SQLFind("[一级分类] = '" & e.Row("一级分类") & "' And  [二级分类]='" &e.Row("二级分类")&"'  And  [三级分类]='"& e.Text &"'" )
    If dr IsNot Nothing Then
        e.Row("计算机中心责任人") = dr("责任人")
    Else
        e.Row("计算机中心责任人") = Nothing
    End If
End If


 回到顶部