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

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

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

ybil

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

加好友

发短信

等级：超级版主帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00

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

'''
If MainTable.Name = "调用"
     Dim Dt1,Dt2 As DataTable
     Dim T1,T2 As String
     Dim Y,M,n As Short
     Dim D1,D2,D3 As Date
     D1= Date.Today
     Y = D1.year
     M = D1.Month
     D2= New Date(Y,M,1)
     D3= New Date(Y,M,Date.DaysInMonth(Y,M))
     Dt1 = DataTables("订单")
     Dt2 = DataTables("调用")
     T1 = "产品,单价,折扣,数量,日期,已付款,编号,型号"
     T2 = "日期 >='" & D2 & "'And 日期 <='" & D3 & "'"
     n = Dt1.Compute("Min(编号)",T2)
     T2 = T2 & " And 编号 = " & n

     Dim f As New Filler
     f.SourceTable = Dt1
     f.SourceCols = T1
     f.DataTable = Dt2
     f.DataCols = T1
     f.Filter = T2
     Dt2.DataRows.Clear()
     f.Fill()
End If

ybil

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

加好友

发短信

等级：超级版主帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00

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

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

    ...
            f.Filter = "[编号] = " & DataTables("订单").Compute("min(编号)","[日期] >= #" & StartDate & "# And [日期]<= #" & EndDate & "#")
           ....

嘻嘻,感觉这个比较条件肯定是不对.另现在日期变为用单引号而不是用"#"引住了?我用#通不过.

ybil

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

加好友

发短信

等级：超级版主帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00

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

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

呵呵，我在命令窗口测试通过的。
另：
1、sql server的日期只能用引号
2、如果内部表，用#号，但是你我系统不同，也许你这边用单引号吧。
图片点击可在新窗口打开查看

呵呵,您的条件是某月份的最小编号n,如其他月份的编号也是n,就会出错吧.我想楼主要的是:满足月份且为最小编号.

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

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