在调拨单中工程项目是空值时,点击新增明细按钮,此时项目控件中的数据可以自动同步到出库明细中
工程项目非空值时,点击新增明细按钮,此时项目控件中的数据不能自动同步到出库明细中
请问如何才能实现:在任何状态下,调拨单中的项目数据都能自动同步到出库明细中呢?
Dim sts() As String = {"部门","出库单号","出库日期"}
For Each st As String In sts
If Tables("出库单").Current.isnull(st) = True Then
MessageBox.Show("请将红色必填字段填写完整!","提醒")
Return
End If
Next
Tables("窗口6_出库").Filter = "出库单号 ='" & Tables("出库单").Current("出库单号") & "'"
Dim r As Row = Tables("窗口6_出库").AddNew
For Each st As String In sts
r(st) = Tables("出库单").Current(st)
Next
另外项目控件非空值时,项目数据只能修改,不能清除。这是为什么呢?