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

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

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

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/18 12:18:00 [只看该作者]

在股piao.股piao明细关联表股piao代码列自动输入时报错

下载信息 [文件大小：下载次数： ]
点击浏览该文件:股piao.table

上传的项目查询窗口Doubleclick事件代码被我屏蔽了

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

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

[此贴子已经被作者于2015/6/18 12:25:03编辑过]

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/18 12:56:00 [只看该作者]

狐狸老师，上面代码重写后上市公司简称、板块、股piao等级、不写入股piao.股piao明细关联表中。

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/18 20:40:00 [只看该作者]

此主题相关图片如下：定位.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

下载信息 [文件大小：下载次数： ]
点击浏览该文件:股piao.rar

[此贴子已经被作者于2015/6/18 20:41:47编辑过]

大红袍

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/18 21:11:00 [只看该作者]

此主题相关图片如下：360反馈意见截图.png

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

大红袍

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

江南小城

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

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2015/6/19 8:01:00 [只看该作者]

狐狸老师，股piao明细窗口目录树加载报错。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:股piao.rar

此主题相关图片如下：360反馈意见截图.png

大红袍

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()

下一主题 >> << 上一主题

总数 28 上一页 1 2 3 下一页

主题：[讨论]