主题：[求助]请问如下两个代码怎么合并

下拉窗口

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口1_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("产品图号")
        Tables("工时统计表").Current("包括装配组件每台用量") = tbl.Current("包括装配组件每台用量")
        Tables("工时统计表").Current("名称") = tbl.Current("名称")
        Tables("工时统计表").Current("材料") = tbl.Current("材料")
    End If
End If