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

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

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

哦，可以了。。。我忘记加窗口关闭的代码了，谢谢班主

刚没看清楚，采购订单里还是无法执行命令啊，品名规格.物料品牌明细.物料进价明细 这个可以正确执行

不发文件很难下手！

我转下吧，用SQL直接做的

麻烦了，我还是明天问下客服吧，我的identify做了关联，转向内部的时候乱七八糟的数据，谢谢斑竹