专家坐堂-提示未知编译错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提示未知编译错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116698)

--  作者：yetle
--  发布时间：2018/3/29 15:42:00
--  提示未知编译错误
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()

--  作者：有点甜
--  发布时间：2018/3/29 15:53:00
--

Dim dr As DataRow =DataTables("报价单").Find("订单编号=\'" & e.Form.Controls("Label1").text & "\'" )
Dim tbl As Table = Tables("报价申请")
If dr IsNot Nothing Then
    dr("客户名称")=tbl.current("业务部_客户")
    \' dr("日期")=Date.Today
    dr.Save()
End If
tbl.Save()