以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教自动复制行的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=165300)
--  作者：zhuoziwang
--  发布时间：2021/5/13 9:57:00
--  请教自动复制行的问题
请教狐爸，我做了一个按钮，实现跨表自动复制行的功能。就是把表A的内容，自动复制到表B。如果我想做个判别，如果已经复制过，不再重复复制，该怎么做？

Dim Result As DialogResult
Result = MessageBox.Show("确定要存档吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    MessageBox.Show("切记,存档操作只可执行一次.","提示")
Dim f As New Filler
f.SourceTable = DataTables("工资总表") \'指定数据
f.SourceCols = "姓名ID,姓名,部门,备注,计薪年月,病假,事假扣除,岗位工资,年功,加班费,绩效工资,卫生费,行车补贴,艰边津贴,中夜班补助,应发总额,交通补贴,养老保险,医疗保险,失业保险,住房公积金,本月所得税,水电房租,扣款总额,实发工资,通讯补贴,奖金,生育假,罚款,其他补贴" \'指定数据来源列
f.DataTable = DataTables("工资总表存档") \'指定数据接收表
f.DataCols = "姓名ID,姓名,部门,备注,计薪年月,病假,事假,岗位工资,年功,加班费,绩效工资,卫生费,行车补贴,艰边津贴,中夜班补助,应发总额,交通补贴,养老保险,医疗保险,失业保险,住房公积金,本月所得税,水电房租,扣款总额,实发工资,通讯补贴,奖金,生育假,罚款,其他补贴" \'指定数据接收列
f.Fill() \'
Else
    MessageBox.Show("再检查一下吧.","提示")
End If

也就是说：我已经存档过一次，不能重复存档，怎么做判别？
--  作者：zhuoziwang
--  发布时间：2021/5/13 10:00:00
--  
比如“工资总表存档”已经有了某员工5月份工资，重复复制时，就判别已存在相同行，禁止复制
--  作者：有点蓝
--  发布时间：2021/5/13 10:02:00
--  
换种方式填充：http://www.foxtable.com/webhelp/topics/1533.htm

直接使用find查询一下是否有记录，比如：
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100")
    Dim dr2 As DataRow = DataTables("表B").find("编号=\'" & dr1("编号") & "\'")
if dr2 is nothing then
    dr2 = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
end if
Next
--  作者：zhuoziwang
--  发布时间：2021/5/13 10:26:00
--  
蓝总，如果我想实现，重复复制就提醒我这种功能呢？

比如：利用姓名和月份做判别条件，如果数据接收表已经存在相同姓名和月份的行，就提醒，“禁止重复存档”
--  作者：有点蓝
--  发布时间：2021/5/13 10:29:00
--  
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100")
    Dim dr2 As DataRow = DataTables("表B").find("姓名=\'" & dr1("姓名") & "\' and 月份=\'" & dr1("月份") & "\'")
if dr2 is nothing then
    dr2 = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
else
msgbox("禁止重复存档")
end if
Next
--  作者：zhuoziwang
--  发布时间：2021/5/13 10:55:00
--  
解决了，谢谢蓝总