主题：[求助]更新了7.22的版本后，代码执行出现了问题

以下内容为程序代码:

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