Dim dr As DataRow =DataTables("报价单").Find("订单编号='" & e.Form.Controls("Label1").text & "'" )
Dim tbl As DataTable = DataTables("报价申请") If dr IsNot Nothing Then dr("客户名称")=tbl.current("业务部_客户") ' dr("日期")=Date.Today dr.Save() End If DataTables("报价申请").Save()
加好友 
发短信
Post By：2018/3/29 15:42:00 [显示全部帖子]
