- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]复制 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194616)
-- 发布时间：2024/12/28 12:47:00
-- [求助]复制
老师好，我想在入库明细表退勾后同时删除数据汇总表的数据。谢谢老师
If e.DataCol.Name = "审核"
If e.DataRow("审核") = True Then
Dim nma() As String = {"编号","抄表日期","项目","项目ID","年","月"} \'A表数据来源列
Dim nmb() As String = {"编号","日期","项目","项目ID","年","月"} \'B表数据接收列
e.DataRow.save
Dim dr2 As DataRow = DataTables("数据汇总").Find("编号 = \'" & e.DataRow("编号") & "\'") \'找到指定返回的行
If dr2 Is Nothing Then
Dim dr3 As DataRow = DataTables("数据汇总").AddNew
For i As Integer = 0 To nma.Length - 1
dr3(nmb(i)) = e.DataRow(nma(i))
Next
\' dr("来源") = "销售" \'入库表就改为"采购",其他表改为"其它"
End If
Else
DataTables("数据汇总").deletefor("_Identify = \'" & e.DataRow("_Identify") & "\'")
End If
End If
-- 发布时间：2024/12/28 13:44:00
--
Else
DataTables("数据汇总").deletefor("编号 = \'" & e.DataRow("编号") & "\'")
End If
End If
-- 发布时间：2024/12/28 21:16:00
--
老师好，入库明细表审核列勾选后进销存表的代码报错。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:勾选复制.rar |
-- 发布时间：2024/12/29 20:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:勾选复制.zip |
-- 发布时间：2024/12/30 15:22:00
--
谢谢老师