主题：[原创]代码问题

对了，老师，表达不清楚，是连续复制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

谢谢老师

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("日期") = Date.Today
            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

谢谢老师，上面的不能增加行，也不提示信息.我的意思是：比如有个资金计划表，每项付款每个月都要报计划，比如计划单号WC-201408-001，是A项目C单位、D费用，7月是第一次报计划，我增加菜单个按钮“生成单据-重新申报”。如果8月份没有获得付款，则8月份重新申报，直接点击“生成单据-重新申报”则将指定的列的值在同表内复制。依此类推，如果在10月再申报，再不允许申报，提示不能申报，11月份则又可以申报了。就是这个意思。 就是这些列{ "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" } 'A表数据来源列如果被连续复制或手工录入3个月，则提示信息，不管是复制的是哪一条。

 不能新增行？你代码的意思是勾选了ZJJHB的行进行新增，你得先勾选

可以增加行了，但次数限制不起作用。

改一下代码

 

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("日期") = Date.Today
            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

比如7月是第一次，8月复制7月出现第二次，9月可能复制7月，也可能复制8月份，但9月份则是出现了第三次，