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

 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

结算单位和供货单位控件改为DropDownBox，单位选择窗口改为DropDownForm：http://www.foxtable.com/webhelp/topics/2099.htm

Dim 变量名 As WinForm.DropDownBox = Forms("采购计划登记").Controls("供货单位")
Dim 变量名 As WinForm.DropDownBox = Forms("采购计划登记").Controls("结算单位")

Dim r As Row = Tables("单位选择_Table1").Current
For Each frm As WinForm.Form In Forms
    Select Case frm.Name
        Case "采购计划登记"
            For Each ctl As WinForm.Control In e.Form.Controls '遍历所有控件
                If TypeOf ctl Is WinForm.DropDownBox Then '如果此控件是RadionButton(单选框)
                    Dim rdo As WinForm.DropDownBox = ctl                 
                    Forms("采购计划登记").Controls("rdo").Value = r("单位名称")
                    Forms("单位选择").Close()
                End If
            Next
    End Select
Next

 

DropDownOpening

展开下拉窗口前执行。
可以在这里对下拉窗口进行设置。

 

Dim 变量名 As WinForm.DropDownBox = Forms("采购计划登记").Controls("供货单位")
Dim 变量名 As WinForm.DropDownBox = Forms("采购计划登记").Controls("结算单位")

Dim Val As String = e.Form.DropDownBox.Text
'Dim r As Row = Tables("单位选择_Table1").Current
For Each ctl As WinForm.Control In e.Form.Controls '遍历所有控件
    If TypeOf ctl Is WinForm.DropDownBox Then '如果此控件是RadionButton(单选框)
        Dim r As Row = Tables("单位选择_Table1").Current
        '        Dim 变量名 As WinForm.ComboBox = Forms("采购计划登记").Controls("供货单位")
       
        Val = r("单位名称")
       
       
        '            = True '则选中此单选框
        Exit For
       
    End If
Next

 

下拉窗口可以显示，赋值没有改成功，麻烦老师帮忙改下谢谢！

 

 

 

下拉窗口表格双击事件