以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  子表增加行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89898)

--  作者：有点蓝 --  发布时间：2016/9/1 8:58:00 --   Select Case e.DataCol.Name     Case "材料编号"         If e.DataRow.IsNull("材料编号") = False Then \'如果已经输入订单编号             Dim dr As DataRow = DataTables("核算汇总").Find(CExp("材料编号=\'{0}\' and 报价编号=\'{1}\'",e.DataRow("材料编号"),e.DataRow("报价编号")))             If dr Is Nothing Then                 Dim dr1 As DataRow = DataTables("核算汇总").AddNew()                 dr1("材料编号") = e.DataRow("材料编号")                 dr1("报价编号") = e.DataRow("报价编号")             End If         End If End Select