老师,我下面这段代码是几个意思:
1、先判断有没有审批权限
2、判断审批流程是否走完,即董事长列是否为空,如果不为空,则
3、判断逻辑列”JZ“是FALSE还是TRUE,如果是FALSE,则:
4、将指定的列复制到ZJSQB,并在JZ列赋值为TRUE。
执行后结果是:提示已付款,实际上JZ列是FALSE,
If User.IsRole("录入人") Then
For Each r As Row In Tables("ZJJHB").GetCheckedRows
If r.Isnull("JHSPR") = False Then
If R.Isnull("fkbm3") = False Then
If R.IsNULL("JZ") = False Then
Dim nma() As String = { "KSJM","KSMC","XMBM","XMMC","JHBH","HTJE","SQDW","XMJD","YFJDK" ,"sh1" } 'A表数据来源列
Dim nmb() As String = { "KSBM","KSMC","XMBM","XMMC","ZJJHBH","HT1","JSGLDW","HT3","HT4" ,"SQJHJE" } 'B表数据接收列
Dim dr As DataRow = DataTables("ZJSQB").AddNew
Dim DD As String = "JZ"
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = r(nma(i))
DD = "是"
Next
Else
MessageBox.show("已经进行过资金付款申请,不能重复付款申请!")
End If
Else
MessageBox.show("已经付过款了,不能重复付款申请!")
End If
Else
MessageBox.show("资金计划表审批流程未完全通过,不能进行付款申请!")
End If
Next
Else
MessageBox.show("你没有资金申报的权限!")
End If
[此贴子已经被作者于2014-8-6 16:58:04编辑过]