[讨论] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]

共有3061人关注过本帖树形打印复制链接主题：[讨论]

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/18 11:34:00 [显示全部帖子]

例子发上来

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/18 12:02:00 [显示全部帖子]

你可以去看一下你表的datacolchanged事件，可能触发了那里的事件代码。

不会做就上传具体例子。

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/18 12:29:00 [显示全部帖子]

不懂你的逻辑。

Dim cr As Row = Tables("股piao").Current
cr("股piao名称") = e.Row("上市公司简称")
cr("股piao代码") = e.Row("上市公司股piao代码")
cr("板块") = e.Row("板块")
cr("证交所") = e.Row("证交所")
cr("股piao等级") = e.Row("股piao等级")

Forms("查询").DropDownBox.CloseDropDown()

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/18 14:24:00 [显示全部帖子]

关联表本来就没有板块、证交所等等的列。

[此贴子已经被作者于2015/6/18 14:24:37编辑过]

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/18 20:47:00 [显示全部帖子]

ModalButtonClick事件

Dim idx As Integer = Tables("股piao").FindRow("股piao代码 = '" & e.Sender.Text & "'")
If idx >= 0 Then
Tables("股piao").Position = idx
End If

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/18 21:34:00 [显示全部帖子]

ModalButtonClick事件

Dim idx As Integer = Tables("股piao").FindRow("股piao代码 like '%" & e.Sender.Text & "%'")
If idx >= 0 Then
Tables("股piao").Position = idx
End If

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/19 9:24:00 [显示全部帖子]

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[交易日期] = #" & dr("交易日期") & "#"
        Case 1
            Filter ="[交易日期] = #" & dr("交易日期") & "# And [股piao代码] = '" & dr("股piao代码") & "'"
    End Select
End If
DataTables("股piao明细").LoadFilter = Filter
DataTables("股piao明细").Load()