[求助]如何调入当月最小编号的记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何调入当月最小编号的记录

共有28294人关注过本帖树形打印复制链接主题：[求助]如何调入当月最小编号的记录

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

[求助]如何调入当月最小编号的记录 发帖心情

Post By：2008/12/1 14:07:00 [显示全部帖子]

想在‘调用’表的子窗口中的按钮中，调入‘订单’表中与‘调用’表中月份相同的最小编号的记录，代码不会（多个条件就晕了）

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

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2008/12/1 15:08:00 [显示全部帖子]

以下是引用czy在2008-12-1 14:32:00的发言：
你所指的当月是指系统当前月份？

中午网络有点问题！我指的的当月是‘调用’表中日期列所在的月份，
即：想从订单表中调入的记录：
如‘调用’表日期列含一月时：把订单表中一月份的最小编号是 1 的记录调入到‘调用’表，
如‘调用’表日期列含二月时：把订单表中二月份的最小编号是 30 的记录调入到‘调用’表。
当然，调入前都要把‘调用’表中原有的记录删除。上面的 1 和 30 都不是固定的。

[此贴子已经被作者于2008-12-1 15:32:19编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2008/12/1 15:24:00 [显示全部帖子]

下面是调入最小编号的代码，我就不会加入一个时间（月份的）条件：
        If MainTable.Name = "调用"
            Dim f As New Filler
            f.SourceTable = DataTables("订单") '指定数据来源
            f.SourceCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" '指定数据来源列
            f.DataTable = DataTables("调用") '指定数据接收表
            f.DataCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" '指定数据接收列
            f.Filter = "[编号] = " & DataTables("订单").Compute("min(编号)")
            DataTables("调用").DataRows.Clear() '清除原来的数据
            f.Fill() '填充数据
        End If

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2008/12/1 15:29:00 [显示全部帖子]

以下是引用狐狸爸爸在2008-12-1 14:43:00的发言：

呵呵，越是初学的人，越将自己的系统搞得复杂。

    '本月第一天
    Dim StartDate AS date = New Date(Date.Today.Year,Date.Today.Month,1)
    '本月最后一天
    Dim EndDate AS Date = New Date(Date.Today.Year,Date.Today.Month,Date.DaysInMonth(Date.Today.Year,Date.Today.Month))

哈哈，狐爸，某月的第一天和最后一天可能都没有记录的，不过收藏您给的代码了。～

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2008/12/1 15:39:00 [显示全部帖子]

重新上转一个文件吧，一楼的文件只有1月份，现将编号30以后的月份改为2。

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

如果调用表没有内容，请在子窗口中点调入最后一条按钮

[此贴子已经被作者于2008-12-1 15:47:01编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2008/12/1 15:44:00 [显示全部帖子]

狐爸的代码可以，但是指定2008年和 2月不符合实际操作，这个年月要和调用表中日期的年月一致的。

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2008/12/1 16:07:00 [显示全部帖子]

czy版主的可以了，只是在订单表中增加一个月的表达式列，如：
SUBSTRING(Convert([日期],'System.String'),6,IIF(SUBSTRING(Convert([日期],'System.String'),7,1) = '-',1,2))

ybil版主的还是不能达到目的！

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2008/12/1 16:29:00 [显示全部帖子]

ybil版主7楼的代码只是和系统日期比较时有效，要与‘调用’表中的日期列的年月比较，如果调用表没有内容，请在子窗口中点【调入最后一条...】按钮加入。希望看到您改进后的代码！～

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

主题：[求助]如何调入当月最小编号的记录