Foxtable(狐表)用户栏目专家坐堂 → [求助]SQLfind的问题,数据有时可以修改,有时又不可以修改


  共有1822人关注过本帖树形打印复制链接

主题:[求助]SQLfind的问题,数据有时可以修改,有时又不可以修改

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110626 积分:563032 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部