以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]自动提取数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135004) |
||||
-- 作者:5301zsz -- 发布时间:2019/5/14 22:19:00 -- [求助]自动提取数据
蓝老师,请指导附件的数据自动提取,谢谢!
|
||||
-- 作者:有点蓝 -- 发布时间:2019/5/14 22:34:00 -- 生产计划表datacolchanged事件 If e.DataCol.Name = "销售类别" Then If e.NewValue = "毛坯" Then Dim dr As DataRow = DataTables("毛坯计划表").AddNew For Each dc As DataCol In e.DataTable.DataCols dr(dc.Name) = e.DataRow(dc.Name) Next End If End If |
||||
-- 作者:5301zsz -- 发布时间:2019/5/15 6:33:00 -- 收到,谢谢蓝老师! |