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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 找不到 Labe

共有5655人关注过本帖树形打印复制链接主题：找不到 Labe

大红袍

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

加好友

发短信

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

Post By：2015/10/20 21:44:00 [显示全部帖子]

哪里相减，就在哪里加代码。

大红袍

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

加好友

发短信

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

Post By：2015/10/20 21:52:00 [显示全部帖子]

那你就把e.Form改成具体的窗口名forms("窗口名")

大红袍

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

加好友

发短信

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

Post By：2015/10/20 21:57:00 [显示全部帖子]

报什么错

大红袍

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

加好友

发短信

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

Post By：2015/10/20 22:04:00 [显示全部帖子]

没看懂慢慢看，楼上已经说的很明白了。

大红袍

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

加好友

发短信

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

Post By：2015/10/20 22:36:00 [显示全部帖子]

For Each r As Row In Tables("表A").rows
    Dim cbx = e.Form.Controls("ComboBox1")
    Select Case cbx.Text
        Case "年"
            r("日期转换") = r("订单日期").year
        Case "季"
            r("日期转换") = DatePart("q", r("订单日期"))
        Case "月"
            r("日期转换") = DatePart("m", r("订单日期"))
        Case "周"
            r("日期转换") = DatePart("ww", r("订单日期"))
        Case "天"
            r("日期转换") = DatePart("d", r("订单日期"))
        Case Else
            r("日期转换") = Nothing
    End Select
Next

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

总数 26 上一页 1 2 3

主题：找不到 Labe