老师给价格筛选的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师给价格筛选的代码

共有3279人关注过本帖树形打印复制链接主题：老师给价格筛选的代码

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/6/22 22:45:00 [只看该作者]

8楼是e.form.control, 9楼是& Forms("窗口1").Controls，效果一样吗

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/22 22:46:00 [只看该作者]

以下是引用seal51在2014-6-22 22:45:00的发言：
8楼是e.form.control, 9楼是& Forms("窗口1").Controls，效果一样吗

一样，如果是在窗口事件写代码，就用e.Form

如果在是在别的地方，比如表事件，就不能用e.Form，只能用Forms("xxx")

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/6/22 22:51:00 [只看该作者]

哦，好的，谢谢老师

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/6/22 23:31:00 [只看该作者]

如何将这个计划单号加入到零件需求表里呢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/22 23:41:00 [只看该作者]

Dim dic As new Dictionary(of String,Integer)
DataTables("零件需求").DataRows.Clear()
For Each dr1 As DataRow In DataTables("生产计划").Select("计划单号 = '" & Forms("窗口1").Controls("TextBox1").Text &  "'")
    For Each dr2 As DataRow In DataTables("零件用量").Select("[产品] = '" & dr1("产品") & "'")
        Dim nm As String = dr2("零件")
        Dim vl As Integer = dr1("生产数量") * dr2("用量")
        If dic.ContainsKey(nm) = False
            dic.Add(nm,vl)
        Else
            dic(nm) = dic(nm)+ vl
        End If
    Next
Next
For Each key As String In dic.keys
    Dim dr As DataRow = DataTables("零件需求").AddNew()

    dr("计划单号") = e.Form.Controls("TextBox1").Text
    dr("零件") = key
    dr("需求数量") = dic(key)
Next