主题：求助，一段IF代码

Dim tbl As Table = Tables("供应商选择_Table1")
If tbl.Current Is Nothing Then Return
If tbl.Current IsNot Nothing Then
    Tables("品名规格.物料品牌明细.物料进价明细").Current("供应商") = tbl.Current("简称")
End If

Dim KKK As Table = Tables("供应商选择_Table1")
If KKK.Current Is Nothing Then Return
If KKK.Current IsNot Nothing Then
    Tables("采购订单").Current("供应商名称") = tbl.Current("简称")
End If
Forms("供应商选择").Close()

做了一个“供应商选择”的窗口，我想这一个窗口的双击事件可以在两个表里通用，要如何判断是加载当前的表呢？

比如我在“品名规格.物料品牌明细.物料进价明细”表里就不执行采购订单里的填充命令？

Dim tbl As Table = Tables("供应商选择_Table1")
If tbl.Current Is Nothing Then Return
If tbl.Current IsNot Nothing Then
If tbl.Current IsNot Nothing Then
    Tables("品名规格.物料品牌明细.物料进价明细").Current("供应商") = tbl.Current("简称")

else

  Tables("采购订单").Current("供应商名称") = tbl.Current("简称")
End If

这样写的采购订单里就无法执行，只能执行 品名规格.物料品牌明细.物料进价明细 这个表里的