以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同一个表两个字段使用下拉窗口的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191997)
--  作者：scofields
--  发布时间：2024/5/23 0:45:00
--  同一个表两个字段使用下拉窗口的问题
同一个表两个字段使用下拉窗口后，发现不能实现预期效果，如何修改？
Dim tbl As Table = Tables("内部单位_Table1")
If tbl.Current IsNot Nothing Then
    If Tables("T_采购单").Cols.Contains("采购单位") Then
        Tables("T_采购单").Current("采购单位") = tbl.Current("内部客户名")
    ElseIf Tables("T_采购单").Cols.Contains("合作单位") Then
        Tables("T_采购单").Current("合作单位") = tbl.Current("内部客户名")
    End If
End If
Forms("内部单位").Close()
--  作者：有点蓝
--  发布时间：2024/5/23 8:37:00
--  

If tbl.Current IsNot Nothing Then
    Tables("T_采购单").Current(e.form.dropcol.name) = tbl.Current("内部客户名")
End If