这个代码是生成一下临时表的,之前一直正常,在客户端也可以使用,但是现在客户端无法生成临时表了,求原因。
DataTables("生产打印表").deletefor("")
e.Form.Controls("生产打印表").Table.DefaultRowHeight = 33 '先设置默认行高
e.Form.Controls("生产打印表").Table.SetHeaderRowHeight( 23,23) '再设置标题行高.
Dim StartDate As Date = Date.Today
With StartDate
Forms("生产任务单").Controls("年").text = .Year
Forms("生产任务单").Controls("月").text = .Month
Forms("生产任务单").Controls("日").text = .Day
End With
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