- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]复选框控制的表关联更新 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69511)
-- 发布时间：2015/6/6 13:19:00
-- [求助]复选框控制的表关联更新
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2015/6/8 9:00:00
-- 回复：（694687928）[求助]复选框控制的表关联更新
里面原有的程序可以修改,"当检验记录"确认"被选中时,来货记录对应行被锁定"这个功能已经可以实现,但"来货记录中的单行"提交"被选中时,检验记录新增一行"功能不是很完美,存在重复提交的现象,不希望重复新增.可以修改,同步更新即可.
-- 发布时间：2015/6/8 9:07:00
--
编程放在datacolchanged 里面还有一个问题,当新增来货记录时还没等到"提交"选中,我的品检表已经新增了一个空行.这个不可以有的.
-- 发布时间：2015/6/8 9:09:00
--
功能1之前我已经给你写过了.
-- 发布时间：2015/6/8 9:17:00
--
是的.非常感谢你给我的程序,我有仔细测试过,但第一步就是存在"当新增来货记录时还没等到"提交"选中,我的品检表已经新增了一个空行.这个不可以有的,而且有个重复提交的问题."我很困扰!
-- 发布时间：2015/6/8 9:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2015/6/8 9:33:00
--
"大红袍"的程序把重复提交的问题也解决了,但当来货记录新增时到保存时,品检记录还是会自动增加一个空行
-- 发布时间：2015/6/8 10:43:00
--
Datacolchanged事件代码要改一下
Select Case e.DataCol.name
Case "流水号"
If e.DataRow("提交") = True Then
Dim dr As DataRow = DataTables("检验记录").Find("流水号 = \'" & e.OldValue & "\'")
If dr Is Nothing Then
dr = DataTables("检验记录").AddNew()
dr("流水号") = e.DataRow("流水号")
dr("送货类别") = e.DataRow("类别")
dr("厂商") = e.DataRow("厂商")
dr("零件编号") = e.DataRow("零件编号")
dr("来货数量") = e.DataRow("来货数量")
dr("收货人") = e.DataRow("接收人")
dr("接货时间")=Date.now
dr("处理状态")="待处理"
Else
dr("流水号") = e.DataRow("流水号")
End If
End If
Case "提交"
If e.DataRow.IsNull("流水号") = False Then
If e.DataRow("提交") = True
Dim dr As DataRow = DataTables("检验记录").Find("流水号 = \'" & e.DataRow("流水号") & "\'")
If dr Is Nothing Then
dr = DataTables("检验记录").AddNew()
dr("流水号") = e.DataRow("流水号")
End If
dr("流水号") = e.DataRow("流水号")
dr("送货类别") = e.DataRow("类别")
dr("厂商") = e.DataRow("厂商")
dr("零件编号") = e.DataRow("零件编号")
dr("来货数量") = e.DataRow("来货数量")
dr("收货人") = e.DataRow("接收人")
dr("接货时间")=Date.now
dr("处理状态")="待处理"
End If
End If
Case "流水号","送货类别","厂商","零件编号","来货数量","收货人"
Dim dr As DataRow = DataTables("检验记录").Find("流水号 = \'" & e.DataRow("流水号") & "\'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
If e.DataCol.Name = "收货日期" Then
If e.DataRow.IsNull("收货日期") Then
e.DataRow("流水号") = Nothing
Else
Dim bh As String = Format(e.DataRow("收货日期"),"yyyyMMdd") \'取得编号的8位前缀
If e.DataRow("流水号").StartsWith(bh) = False \'如果编号的前8位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(流水号)","收货日期= #" & e.DataRow("收货日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("流水号") = bh & "-" & Format(idx,"000")
End If
End If
End If