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

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()

Dim cr As Row = Tables("表名").Current

cr("型号") = r("型号")

cr("尺码") = r("尺码")

cr("颜色") = r("颜色")

谢谢大红袍