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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 引用数据1

共有2601人关注过本帖树形打印复制链接主题：引用数据1

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

引用数据1

Post By：2016/12/14 11:36:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生产管理2016新.zip

开发者 qdkf

想在“组装品进度明细表”里，如果“产品序号”列不为空，就按照“组装品名”列的内容，去“工程和工时”表的“部品ID”列，找到相同内容，

将相应的“工序序号”和“工程”数据引入“组装品进度明细表”里，

比如是“电动CT”的话，“工程和工时”里的序号有1,2,3，4,5，引入的是 1 总组，2 配线部组，3 检测，4 出荷检查，5 出荷包装

因是菜鸟，不会写代码，请老师帮帮忙呗，谢谢！

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/12/14 13:11:00 [显示全部帖子]

老师，我写了以下代码，

Select Case e.DataCol.Name

Case "部品ID","产品序号"

Dim dr As DataRow = e.DataRow

Dim pr As DataRow

If dr.IsNull("部品ID") OrElse dr.IsNull("产品序号") Then

dr("工序序号") = Nothing

dr("工程") = Nothing

Else

Dim filter As String

filter = "部品ID = '" & dr("部品ID") & "' and 工序序号 IsNot Nothing "

pr = DataTables("工程和工时").Find(filter)

If pr IsNot Nothing Then

dr("工序序号") = pr("工序序号")

dr("工程") = pr("工程")

End If

End Select

但显示错误，

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2016.7.29.1

错误所在事件：表，组装品进度明细表，DataColChanged

详细错误信息：

调用的目标发生了异常。

语法错误:“IsNot”运算符后缺少操作数。

请老师帮改改，谢谢

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/12/14 15:08:00 [显示全部帖子]

老师，还是显示这个错误信息。

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/12/14 15:56:00 [显示全部帖子]

老师，能引出数据来了，但引出来的是

工序序号工程

5 K5

但是我想要达到的效果是：

1 总组

2 配线部组

3 检测

4 出荷检查

5 出荷包装

这样的要怎么弄呢？

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/12/14 16:43:00 [显示全部帖子]

老师，是的

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/12/15 8:05:00 [显示全部帖子]

老师，显示运行错误

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2016.7.29.1

错误所在事件：表，组装品进度明细表，DataColChanged

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/12/15 10:28:00 [显示全部帖子]

老师，您好，是根据《组装品进度明细表》中手输入的“部品ID”列产品名，去《工程和工时》表里找到相同名字的产品，

并将此产品的加工工序（不为空值的）按照升序，放入《组装品进度明细表》的相应列里，想要达到的效果如图
图片点击可在新窗口打开查看

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

代码老是显示未将对象引用设置到对象的实例。

请老师帮看看问题出在哪里了，谢谢！

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/12/15 10:32:00 [显示全部帖子]

老师，因一开始的产品是手输入的，能不能将第一道工序的“工序序号”和“工程”放入手输入产品的那一行上，

从第二道工序往后再增加行，产品名与上行相同，“工序序号”列依次增加一个数（如上序是1，本行就是2）

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/12/15 10:56:00 [显示全部帖子]

老师，很快就引过来了，太好了，谢谢老师，

老师，如果想要在以下窗口中

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

如果选择一种多种组装品，单击“导入工序”按钮，就会达到以上效果，

我写的代码是：

Dim Filter As String

Dim Filter1 As String

Dim Filter2 As String

With e.Form.Controls("CheckedComboBox1")

If .Value IsNot Nothing Then

Filter = "产品 = '" & .Value & "'"

filter1 = "工序序号 Is Not null"

filter2 = filter + filter1

Dim drs As List(Of DataRow) = DataTables("工程和工时").Select(filter2，"工序序号")

For Each r As DataRow In drs

dr = e.DataTable.addnew()

dr("工序序号") = pr("工序序号")

dr("工程") = pr("工程")

endif

end with

再就不会了，还得请老师帮帮忙，谢谢！

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2016/12/15 11:17:00 [显示全部帖子]

完美解决，谢谢老师

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：引用数据1