| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]我想实现"原料配比_1_成分"列中输入原料类型后，在"原料标准回潮"表中查找"标准回潮"填充到"原料配比_1_标准回潮"列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123570) |
| -- 作者：1669607010 -- 发布时间：2018/8/17 19:57:00 -- [求助]我想实现"原料配比_1_成分"列中输入原料类型后，在"原料标准回潮"表中查找"标准回潮"填充到"原料配比_1_标准回潮"列 哪位老师帮忙看看，我想实现"原料配比_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 End If |
| -- 作者：有点蓝 -- 发布时间：2018/8/17 20:40:00 -- If e.DataCol.Name = "原料配比_1_成分" Then If e.DataRow.Isnull("原料配比_1_成分") Then e.DataRow("原料配比_1_标准回潮")= Nothing Else Dim dr As DataRow dr = DataTables("原料标准回潮").Find("原料类型= " & "\'" & e.DataRow("原料配比_1_成分") & "\'" ) If dr IsNot Nothing e.DataRow("原料配比_1_标准回潮")= dr("标准回潮") End If End If End If
|
| -- 作者：1669607010 -- 发布时间：2018/8/17 20:50:00 -- 明白了，谢谢蓝老师！ [此贴子已经被作者于2018/8/17 20:50:22编辑过]
|