代码写到窗口afterload
Dim dd As String = Forms("生产任务单").controls("生产单号").text
Dim drCur As Row = Tables("生产主表").Current
If drCur IsNot Nothing Then
If drCur.IsNull("件数") OrElse drCur("件数") < 1 Then
Dim r As Row =Tables("生产任务单_生产打印表").addnew(1)
Dim dr As DataRow = DataTables("生产主表").SQLfind("生产单号 = '"& dd &"'and 作废 = 0")
If dr IsNot Nothing Then
r("蒸镀规格") = dr("蒸镀规格")
End If
Else
Tables("生产任务单_生产打印表").addnew(drCur("件数"))
Tables("生产任务单_生产打印表").AllowEdit = True
Dim dr1 As DataRow = DataTables("生产主表").SQLfind("生产单号 = '"& dd &"'and 作废 = 0")
If dr1 IsNot Nothing Then
For Each r As Row In Tables("生产任务单_生产打印表").Rows
r("蒸镀规格") = dr1("蒸镀规格")
Next
Tables("生产任务单_生产打印表").AllowEdit = False
End If
End If
End If
加好友 
发短信
Post By：2016/10/24 9:23:00 [显示全部帖子]
