主题：[原创]代码问题

老师，我下面这段代码是几个意思：

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

现在是：

If r.Isnull("JHSPR") = False Then ‘审批人不为空

       If R.Isnull("fkbm3") = False Then   ’付款列不为空

          If R.IsNULL("JZ") = False Then    ‘逻辑列为FALSE，这里这样对吗，逻辑值的判断对吗？

 

39楼代码执行结果提示：

.NET Framework 版本：2.0.50727.3053

Foxtable 版本：2014.5.12.1

错误所在事件：菜单,资金申请表,Click

详细错误信息：

Conversion from string "JZ" to type 'Boolean' is not valid.

Input string was not in a correct format.

If User.IsRole("录入人") Then

    For Each r As Row In Tables("ZJJHB").GetCheckedRows

    If r.Isnull("JHSPR") = False Then

       If R.Isnull("fkbm3") = True 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 Boolean = "JZ"

           For i As Integer = 0 To nma.Length - 1

              dr(nmb(i)) = r(nma(i))

              DD = "true"

          Next

          Else 

          MessageBox.show("已经进行过资金付款申请,不能重复付款申请!")

          End If

        Else

        MessageBox.show("已经付过款了,不能重复付款申请!")

        End If

   Else

   MessageBox.show("资金计划表审批流程未完全通过,不能进行付款申请!")

   End If

Next    

  Else

      MessageBox.show("你没有资金申报的权限!")

End If