代码出错怎样改哟 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码出错怎样改哟

共有2428人关注过本帖树形打印复制链接主题：代码出错怎样改哟

Hyphen

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

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/3/15 9:26:00 [显示全部帖子]

Dim Dic As new Dictionary(of Row, DataRow)

For Each r As Row In Tables("某表").Rows

Dim dr As DataRow

dr = DataTables("项目报告管理表").Find("项目编号 = '" & r("项目编号") & "'" )

If dr IsNot Nothing '如果找到, 则设置各列内容

Dic.Add(r,dr)

End If

For Each dr2 As Row In dic.Keys

dr2("归属项目")= dic(dr2)("项目类型")

dr2("日期")= dic(dr2)("申报时间")

dr2("领料单位")= dic(dr2)("项目单位")

dr2("类别")= dic(dr2)("标识")

主题：代码出错怎样改哟