点击上一周显示去年 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点击上一周显示去年

共有4364人关注过本帖树形打印复制链接主题：点击上一周显示去年

大红袍

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

加好友

发短信

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

Post By：2016/1/28 21:44:00 [只看该作者]

参考代码

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

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/1/28 21:53:00 [只看该作者]

With CurrentTable

Dim r As Date

r = .FindRow("[日计划] Like '%DateTimePicker1%'", .Position + 1, True ) '从当前行的下一行开始查找

If r >= 0 Then '如果找到的话

.Position = r '定位到找到的行.

End If

End With

帮我看看是那里错了啊谢谢

大红袍

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

加好友

发短信

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

Post By：2016/1/28 22:28:00 [只看该作者]

With CurrentTable
    Dim r As Date
    r = .FindRow("[日计划] Like '%" & e.Form.Controls("DateTimePicker1").Text & "%'") '从当前行的下一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/1/28 22:48:00 [只看该作者]

日计划列可以是其他表的吗？

比如点击按钮后光标定位到表C的日计划列

大红袍

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

加好友

发短信

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

Post By：2016/1/28 23:33:00 [只看该作者]

灵活变通啊

With Tables("表C")
    Dim r As Integer
    r = .FindRow("[日计划] Like '%" & e.Form.Controls("DateTimePicker1").Text & "%'") '从当前行的下一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/1/29 11:46:00 [只看该作者]

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2015.12.22.1

错误所在事件：窗口,事件编辑窗口,Button6,Click

详细错误信息：

无法在 System.DateTime 和 System.String 上执行“Like”操作。

这个是那里的问题啊？感谢感谢

大红袍

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

加好友

发短信

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

Post By：2016/1/29 11:50:00 [只看该作者]

With Tables("表C")
    Dim r As Integer
    r = .FindRow("[日计划] = #" & e.Form.Controls("DateTimePicker1").Text & "#") '从当前行的下一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With

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

总数 37 上一页 1 2 3 4

主题：点击 上一周 显示去年

主题：点击上一周显示去年