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

你所指的当月是指系统当前月份？

我觉得应该要订单表中增加一个月的表达式列，表达式代码帮助中有，如：
SUBSTRING(Convert([日期],'System.String'),6,IIF(SUBSTRING(Convert([日期],'System.String'),7,1) = '-',1,2))

然后将楼上的代码改成：

Dim de As Date  = Tables("调用").Current("日期")
Dim Month As Integer = de.Month
Dim Min As Integer = DataTables("订单").Compute("Min(编号)","月 = '" & Month & "'")
DataTables("调用").DataRows.Clear()
If MainTable.Name = "调用"
    Dim f As New Filler
    f.SourceTable = DataTables("订单")
    f.SourceCols = "产品,单价,折扣,数量,日期,已付款,编号,型号"
    f.DataTable = DataTables("调用")
    f.DataCols = "产品,单价,折扣,数量,日期,已付款,编号,型号"
    f.Filter = "[编号] = '" & Min & "' And [月] = '" & Month & "'"
    f.Fill()
End If

好象没什么两样吧？


Dim de As Date  = Tables("调用").Current("日期")
Dim Year As  Integer = de.Year
Dim Month As Integer = de.Month
Dim StartDate AS date = New Date(Year, Month, 1)
Dim EndDate AS Date = New Date(Year, Month, Date.DaysInMonth(Year, Month))
DataTables("调用").DataRows.Clear()
If MainTable.Name = "调用"
    Dim f As New Filler
    f.SourceTable = DataTables("订单")
    f.DataTable = DataTables("调用")
    f.Filter = "[编号] = " & DataTables("订单").Compute("min(编号)","[日期] >= #" & StartDate & "# And [日期]<= #" & EndDate & "#")
    f.Fill()
End If

有理，哈，套用你的代码还套用错了

这样应该没问题了。

Dim de As Date  = Tables("调用").Current("日期")
Dim Year As  Integer = de.Year
Dim Month As Integer = de.Month
Dim StartDate AS date = New Date(Year, Month, 1)
Dim EndDate AS Date = New Date(Year, Month, Date.DaysInMonth(Year, Month))
Dim Min As Integer = DataTables("订单").Compute("min(编号)","[日期] >= #" & StartDate & "# And [日期]<= #" & EndDate & "#")
DataTables("调用").DataRows.Clear()
If MainTable.Name = "调用"
    Dim f As New Filler
    f.SourceTable = DataTables("订单")
    f.DataTable = DataTables("调用")
    f.Filter = "[编号] = '" & Min & "' And [日期] >= #" & StartDate & "# And [日期]<= #" & EndDate & "#"
    f.Fill()
End If