如何添加型号，颜色，尺码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何添加型号，颜色，尺码

共有1980人关注过本帖树形打印复制链接主题：如何添加型号，颜色，尺码

hujincheng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：246 威望：0 精华：0 注册：2016/1/5 22:27:00

如何添加型号，颜色，尺码 发帖心情

Post By：2016/3/15 12:25:00 [只看该作者]

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

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