主题：当前控件赋值（已解决）

 Dim r As Row = Tables("单位选择_Table1").Current
For Each frm As WinForm.Form In Forms
    Select Case frm.Name
        Case "采购计划登记"
            Forms("采购计划登记").Controls("结算单位").Value = r("单位名称")
            Forms("单位选择").Close()
    End Select
Next

 

选择 采购计划窗口 当前控件的值等于 单位选择窗口 的  往来单位设置副本表 的当前值

请问红色的代码要怎样修改，结算单位和供货单位，用同一个单位选择窗口赋值

 

此主题相关图片如下：ddd.png