主题：如何添加型号，颜色，尺码

 “选择商品” 窗口的代码如下，可是双击后，只会填入型号，我想型号，颜色，尺码全部填写进去，代码应该怎么写，谢谢！

 

Dim r As Row = Tables("选择商品_Table1").Current
For Each frm As WinForm.Form In Forms
    Select Case frm.Name
               Case "宝贝销售"
            If forms(frm.Name).Opened Then
                Forms("宝贝销售").Controls("添加宝贝").Value = r("型号")
            End If
    End Select
Next
Forms("选择商品").Close()

 

 

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

谢谢大红袍