以下是引用爱相随在2014-8-5 15:56:00的发言:
对了,老师,表达不清楚,是连续复制3次,进行限制,间隔1-2月后则又可复制
加入一列日期列
If User.IsRole("录入人") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
Dim nma() As String = { "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" } 'A表数据来源列
Dim nmb() As String = { "KSBM","KSMC","XMBM","XMMC","ZJJHBH","HT1","JSGLDW","HT3","HT4" } 'B表数据接收列
Dim dr As DataRow = DataTables("ZJSQB").AddNew
If r("日期") < Date.Today.AddMonths(-1) Then
r("次数") = 0
End If
If r("次数") < 3 Then
r("次数") += 1
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
Next
Else
r("日期") = Date.Today
msgbox("超出次数")
End If
Next
Else
MessageBox.show("你没有复制数据的权限!")
End If