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

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

    '本月第一天
    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))

    Dim Year As  Integer = 2008
    Dim Month As integer = 2
    Dim StartDate AS date = New Date(Year, Month, 1) 
    Dim EndDate AS Date = New Date(Year, Month, Date.DaysInMonth(Year, Month))
   If MainTable.Name = "调用"
            Dim f As New Filler
            f.SourceTable = DataTables("订单") '指定数据来源
            f.SourceCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" '指定数据来源列
            f.DataTable = DataTables("调用") '指定数据接收表
            f.DataCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" '指定数据接收列
            f.Filter = "[编号] = " & DataTables("订单").Compute("min(编号)","[日期] >= #" & StartDate & "# And [日期]<= #" & EndDate & "#")
            DataTables("调用").DataRows.Clear() '清除原来的数据
            f.Fill() '填充数据
        End If

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

其它版主给出了求年月的代码，你自己挪过来。

惭愧，没想到这个。
再改：

Dim Year As  Integer = 2008
    Dim Month As integer = 2
    Dim StartDate AS date = New Date(Year, Month, 1) 
    Dim EndDate AS Date = New Date(Year, Month, Date.DaysInMonth(Year, Month))
    Dim MinVal As integer  = DataTables("订单").Compute("min(编号)", "[日期] >= #" & StartDate & "# And [日期]<= #" & EndDate & "#")
   If MainTable.Name = "调用"
            Dim f As New Filler
            f.SourceTable = DataTables("订单") '指定数据来源
            f.SourceCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" '指定数据来源列
            f.DataTable = DataTables("调用") '指定数据接收表
            f.DataCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" '指定数据接收列
            f.Filter = "[编号] = " & MinVal &  "  And [日期] >= #" & StartDate & "# And [日期]<= #" & EndDate & "#"
            DataTables("调用").DataRows.Clear() '清除原来的数据
            f.Fill() '填充数据
        End If

存在瑕疵，如果求得该月的最小编号为3，那么原来的代码，不会只填充指定月份的最小编号为3的行，而是填充所有月份最小编号为3的记录。
所以filler的填充条件也得加上日期范围限制。