主题：窗口代码

比如

Dim a As Row = Tables("表A").current
If a.IsNull("采购人") OrElse a.Isnull("采购数量") OrElse a.Isnull("采购总价") OrElse a.Isnull("采购单价") OrElse a.Isnull("供货单位")  Then
    Tables("打印入库单_table1").DataTable.LoadFilter = "办理入库 = 'False' and 申报日期 >='2019-03-25'"
    Tables("打印入库单_table1").DataTable.Load
    Tables("物品申报").AllowEdit = True
    DataTables("打印入库单_table1").ReplaceFor("_locked", False, "")   '解锁所有的行
End If