Dim tbl As Table = Tables("供应商选择_Table1")If tbl.Current IsNot Nothing Then
if CurrentTable.name = "采购订单"
CurrentTable.Current("供应商名称") = tbl.Current("简称") else Tables("品名规格.物料品牌明细.物料进价明细").Current("供应商") = tbl.Current("简称") End Ifend if