主题：代码问题求助？

Select Case e.DataCol.Name
    Case "申报性质","资格审核"
        If e.DataRow("鉴定等级") = "技师" Then
            If e.DataRow("申报性质") = "正常申报" Then
                If e.DataRow("资格审核") = True Then
                    e.DataRow("理论收费") = 50
                End If
            End If
        End If
       
End Select

 

 

此主题相关图片如下：j3e7{xr%iv6v5@md(j9wzl.png

 

 

代码是表DataColchanged事件代码，为什么在表中的“理论收费”列没反应，是代码的问题？“理论收费、实操收费、潜能收费、评审收费”等列是“整数列”，“应收合计”是字符型，是表达式列。

 

请版主指教！

我的目标是：根据代码生成各收费列的数据自动填入，现只写了理论收费这列就不行

那我要怎么写，才会自动变呢？

比如说：“鉴定等级”是技师，“申报性质”是正常申报，“资格审核”是通过（这是逻辑列），那么“理论收费”列就自动填入50；

            ：“鉴定等级”是技师，“申报性质”是补考实操，“资格审核”是通过（这是逻辑列），那么“理论收费”列就自动填入0，“实操收费”列填入80，“潜能收费”列填入0；

重置列我做了，修改列的值没搞明白？我自己手工填入？

我搞明白了，我重置“资格审核”列或其它条件列就可以了；因为表中的数据都是从其它表中直接传送过来的，我一直重置的是“理论收费”列，所以表中没反应，谢谢版主！有问题继续向您讨教！

If e.DataRow("鉴定等级") = "技师" Then
    If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("资格审核") = True AndAlso e.DataRow("实操潜能") = True Then
        e.DataRow("理论收费") = 50 And e.DataRow("实操收费") = 80 And e.DataRow("潜能收费") = 80
        If e.DataRow("申报性质") = "补考两项" AndAlso e.DataRow("资格审核") = True Then
            e.DataRow("理论收费") = 0 And e.DataRow("实操收费") = 80 And e.DataRow("潜能收费") = 80
            If e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("资格审核") = True Then
                e.DataRow("理论收费") = 0 And e.DataRow("实操收费") = 80 And e.DataRow("潜能收费") = 0
                If e.DataRow("申报性质") = "补考潜能" AndAlso e.DataRow("资格审核") = True Then
                    e.DataRow("理论收费") = 0 And e.DataRow("实操收费") = 0 And e.DataRow("潜能收费") = 80
                   
                End If
            End If
        End If
    End If
End If

 

版主：这段代码的错误在哪？我的目的是－－－1、当“申报性质”为正常申报 且“资格审核”为通过 且“实操潜能”为“有”时，理论收费为50、实操收费为80、潜能收费为80

                                                           2、当“申报性质”为正常申报 且“资格审核”为通过 且“实操潜能”为“无”时，理论收费为50、实操收费为0、潜能收费为0 

                                                           3、当“申报性质”为补考两项 且“资格审核”为通过 理论收费为0、实操收费为80、潜能收费为80  

                                                           4、当“申报性质”为补考实操 且“资格审核”为通过 理论收费为0、实操收费为80、潜能收费为0

                                                           5、当“申报性质”为补考潜能 且“资格审核”为通过 理论收费为0、实操收费为0、潜能收费为80

我组合了很多组代码，但都没有反应，请指教？

版主明鉴！我在写代码的时候基本上是以搭积木的思维方式写，可能还是理解能力太差，所以写的代码没有几次是成功的，还要多多学习！