[求助]我想实现"原料配比_1_成分"列中输入原料类型后，在"原料标准回潮"表中查找"标准回潮"填充到"原料配比_1_标准回潮"列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我想实现"原料配比_1_成分"列中输入原料类型后，在"原料标准回潮"表中查找"标准回潮"填充到"原料配比_1_标准回潮"列

共有1619人关注过本帖树形打印复制链接主题：[求助]我想实现"原料配比_1_成分"列中输入原料类型后，在"原料标准回潮"表中查找"标准回潮"填充到"原料配比_1_标准回潮"列

1669607010

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

加好友

发短信

等级：小狐帖子：380 积分：3515 威望：0 精华：0 注册：2017/9/5 8:28:00

[求助]我想实现"原料配比_1_成分"列中输入原料类型后，在"原料标准回潮"表中查找"标准回潮"填充到"原料配比_1_标准回潮"列 发帖心情

Post By：2018/8/17 19:57:00 [只看该作者]

哪位老师帮忙看看，我想实现"原料配比_1_成分"列中输入原料类型后，在"原料标准回潮"表中查找"标准回潮"填充到"原料配比_1_标准回潮"列，下面的代码已经能实现，可现在的问题是，在"原料配比_1_成分"列中输入原料类型后"原料配比_1_标准回潮"列也填充好了后，在清空"原料配比_1_成分"列时，"原料配比_1_标准回潮"列并没有清除。现我想在清空"原料配比_1_成分"列时，"原料配比_1_标准回潮"列的内容也一并清除。

请问代码应该怎么修改啊？

哪位老师帮忙看看，谢谢！

If e.DataCol.Name = "原料配比_1_成分" Then

Dim dr As DataRow

dr = DataTables("原料标准回潮").Find("原料类型= " & "'" & e.DataRow("原料配比_1_成分") & "'" )

If dr IsNot Nothing

e.DataRow("原料配比_1_标准回潮")= dr("标准回潮")

End If