专家坐堂-[求助]SQLfind的问题，数据有时可以修改，有时又不可以修改Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]SQLfind的问题，数据有时可以修改，有时又不可以修改  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106952)

--  作者：2900819580
--  发布时间：2017/9/18 20:26:00
--  [求助]SQLfind的问题，数据有时可以修改，有时又不可以修改

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = e.DataTable
Dim dt1 As DataTable = DataTables("采购订单")
Select Case e.DataCol.Name
Case "确认交期"
If e.OldValue <> e.NewValue Then dr("更改次数") += 1
Dim fr As DataRow = dt1.sqlFind("单据编号 =\'" & dr("单据编号") & "\' and 物料代码 =\'" & dr("物料代码") & "\'")
fr("回复交期") = Date.Today
If fr IsNot Nothing Then

fr("回复交期") = dr("确认交期")
End If
End Select

--  作者：有点蓝
--  发布时间：2017/9/18 20:32:00
--

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = e.DataTable
Dim dt1 As DataTable = DataTables("采购订单")
Select Case e.DataCol.Name
Case "确认交期"
If e.OldValue <> e.NewValue Then dr("更改次数") += 1
Dim fr As DataRow = dt1.sqlFind("单据编号 =\'" & dr("单据编号") & "\' and 物料代码 =\'" & dr("物料代码") & "\'")
If fr IsNot Nothing Then

fr("回复交期") = dr("确认交期")
fr.save
End If
End Select