主题：求助，一段IF代码

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 If
end if

不发文件很难下手！