1 Dim dd As String = Forms("生产任务单").controls("生产单号").text 2 If e.value < 1 Then 3 Tables("生产任务单_生产打印表").addnew(1) 4 Dim dr As DataRow = DataTables("生产主表").SQLfind("生产单号 = '"& dd &"'and 作废 = 0") 5 If dr IsNot Nothing Then 6 Tables("生产任务单_生产打印表").Current("蒸镀规格") = dr("蒸镀规格") 7 End If 8 End If 9 If e.value >= 1 Then 10 Tables("生产任务单_生产打印表").addnew(e.value) 11 Tables("生产任务单_生产打印表").AllowEdit = 1 12 For Each r As Row In Tables("生产任务单_生产打印表").Rows 13 Dim dr1 As DataRow = DataTables("生产主表").SQLfind("生产单号 = '"& dd &"'and 作废 = 0") 14 If dr1 IsNot Nothing Then 15 r("蒸镀规格") = dr1("蒸镀规格") 16 Tables("生产任务单_生产打印表").AllowEdit = 0 17 End If 18 Next 19 End If