主题：甜老师，代码解读求助（已上传项目文件）

甜老师，以下代码我真心的看不懂了。

工程代码 = 'e.DataRow("工程代码")'

 

且 制单日期 >= #fd#

 

且 制单日期 <= #ld#

 

且 [_Identify] <> e.DataRow("_Identify")

工程代码 = 'e.DataRow("工程代码")'    这里的第一个工程代码是哪个变量

 工程代码，是列名啊。

 

 意思是 工程代码 = 某表当前行的工程代码

比价生单窗口里的生单按钮中自动生成订单号如何修改。

 看不懂你想做什么。

 

 

Dim d As Date = Today()  '获取当前日期
Dim y As Integer = d.Year  '获取当前日期的年份
Dim m As Integer = d.Month  '获取当前日期的月份
Dim Days As Integer = Date.DaysInMonth(y,m)  '获取当前月份的天数
Dim fd As Date = New Date(y,m,1) '获得当前月份的第一天
Dim ld As Date = New Date(y,m,Days) '获当前月份的最后一天
Dim bh As String = Format(d,"yyyyMM") & "-" '生成编号的前6位,4位年,2位月
For Each dr2 As Row In Tables("orderlist").Rows
    Dim max As String
    Dim idx As Integer
    Dim flt As String
    flt = "orderTime >= #" & fd & "# And orderTime <= #" & ld & "# And [_Identify] <> " & dr2("_Identify")
    max = Tables("orderList").Compute("Max(orderNo)",flt) '取得该月的相同供应商的最大订单编号

    If max > "" Then '如果存在最大编号
        idx = CInt(max.Substring(max.Length - 2)) + 1 '获得最大订单号的后二位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    dr2("orderNo") = bh & Format(idx,"00")
Next

我是想将所有未下单的记录通过比价后带出单价最低的供应商和价格。然后单击生单按钮生单（每次生单只能是同一供应商的，否则提示出现了多家供应商，要求修改）。这批生成的订单由于供应商是同一家，而且是同一时间生成的，所以希望在生单时自动生成的订单号一次性赋值给所有的记录。

  如下代码，供应商条件自行加上

 

Dim no As String
Dim d As Date = Today()  '获取当前日期
Dim y As Integer = d.Year  '获取当前日期的年份
Dim m As Integer = d.Month  '获取当前日期的月份
Dim Days As Integer = Date.DaysInMonth(y,m)  '获取当前月份的天数
Dim fd As Date = New Date(y,m,1) '获得当前月份的第一天
Dim ld As Date = New Date(y,m,Days) '获当前月份的最后一天
Dim bh As String = Format(d,"yyyyMM") & "-" '生成编号的前6位,4位年,2位月
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "orderTime >= #" & fd & "# And orderTime <= #" & ld & "#"
max = Tables("orderList").Compute("Max(orderNo)",flt) '取得该月的相同供应商的最大订单编号

If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring(max.Length - 2)) + 1 '获得最大订单号的后二位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
no = bh & Format(idx,"00")
msgbox(no)