主题：请教自动复制行的问题

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

也就是说：我已经存档过一次，不能重复存档，怎么做判别？