以文本方式查看主题

-  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
--  [求助]自动提取数据
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.rar

蓝老师,请指导附件的数据自动提取,谢谢!

--  作者:有点蓝
--  发布时间: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
--  
收到,谢谢蓝老师!