此主题相关图片如下：qq图片20200605195204.png
在导入按钮中，我写了如下代码，可以导入数据，但存在一个问题，就是可以重复导入数据，我想在导入前能做一个提醒，如果 “绩效明细” 表里和准备导入的 “设置” 表的数据（以姓名为例）有重复，就提示有重复数据，禁止导入，如果没有重复数据，就执行我写的导入代码。
Tables("绩效明细").StopRedraw
For Each r As Row In Tables("设置").GetCheckedRows
Dim r1 As Row = Tables("绩效明细").AddNew
r1("姓名") = r("姓名")
Next
Tables("绩效明细").ResumeRedraw
If MessageBox.Show("你已导入人员信息,请开始计算绩效工资","提示",MessageBoxButtons.OK,MessageBoxIcon.None) = DialogResult.OK Then
DataTables("绩效明细").DataCols("姓名").RaiseDataColChanged()
DataTables("绩效明细").DataCols("姓名").RaiseDataColChanged()
Forms("导入窗口").Close
End If
加好友 
发短信
Post By：2020/6/5 19:56:00 [只看该作者]
