Dim t As Table =Tables("成品出库单") dim dd as date = t.Current("日期")
If t.current.Isnull("piao号")=False AndAlso t.current("日期")=False AndAlso t.current.isnull("对方单位") = False Dim r As Row =Tables("成品出库单.成品出库").AddNew() r("ID") = Tables("成品出库单.成品出库").DataTable.Compute("Max(ID)") + 1 r("日期") = dd End If