选最后一行的时候提示，未将对象引用设置到对象的实例。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DoubleClick：

If Forms("生产制造单").Opened Then

Dim tb As Table = Tables("选择销售明细尺码_Table1")

Dim tbl1 As Table = Tables("生产制造单_Table1")

Dim pd As WinForm.ComboBox = Forms("生产制造单").Controls("ComboBox7")

Dim dt2 As DataTable = Tables("生产制造单_Table2").DataTable

For i As Integer=tb.BottomPosition To tb.TopPosition Step -1

Dim str1 As String = "XS,S,M,L,XL,2XL,3XL,4XL,5XL,6XL,F,XF"

Dim str2 As String = "65,70,75,80,85,90,95,100"

Dim fdr As DataRow = dt2.Find("销售明细行ID = '" & tb.Current("销售明细行ID") & "' ")

If fdr Is Nothing Then

fdr = dt2.AddNew

fdr("生产单号") = tbl1.Current("生产单号")

fdr("订单号")=tb.Current("订单号")

fdr("款号")=tb.Current("款号")

fdr("颜色")=tb.Current("颜色")

fdr("杯型")=tb.Current("杯型")

fdr("要求货期")=tb.Current("要求货期")

fdr("款号ID")=tb.Current("款号ID")

fdr("物供号")=tb.Current("物供号")

fdr("销售明细行ID")=tb.Current("销售明细行ID")

tb.Current("已安排制单")=True

For Each s As String In str1.Split(",")

If tb.Cols.Contains("衣裤尺码明细_" & s) Then

fdr("衣裤尺码明细_" & s)=val(tb.Current("衣裤尺码明细_" & s))

End If

For Each s As String In str2.Split(",")

If tb.Cols.Contains("文胸尺码明细_" & s) Then

fdr("文胸尺码明细_" & s)=val(tb.Current("文胸尺码明细_" & s))

End If

Syscmd.Table.Lock()

dt2.save

End If

Forms("选择销售明细尺码").Close()

主题：选最后一行的时候提示，未将对象引用设置到对象的实例。