主题：[求助]这样的代码能简化吗？

 

If e.DataCol.Name = "SSJCZBM1" Then '如果更改的是手术及操作编码列

    If e.DataRow.IsNull("SSJCZBM1") Then '手术及操作编码是否为空

        e.DataRow("SSJCZMC1") = Nothing   '手术操作日期 名称为空

        e.DataRow("SSJCZRQ1") = Nothing

        e.DataRow("SSJB1") = Nothing

        e.DataRow("SZ1") = Nothing

        e.DataRow("YZ1") = Nothing

        e.DataRow("EZ1") = Nothing

        e.DataRow("QKDJ1") = Nothing

        e.DataRow("QKYHLB1") = Nothing

        e.DataRow("MZFS1") = Nothing

        e.DataRow("MZYS1") = Nothing    

   End If

End If

If e.DataCol.Name = "SSJCZBM2" Then '如果更改的是手术及操作编码列

    If e.DataRow.IsNull("SSJCZBM2") Then '手术及操作编码是否为空

        e.DataRow("SSJCZMC2") = Nothing   '手术操作日期 名称为空

        e.DataRow("SSJCZRQ2") = Nothing

        e.DataRow("SSJB2") = Nothing

        e.DataRow("SZ2") = Nothing

        e.DataRow("YZ2") = Nothing

        e.DataRow("EZ2") = Nothing

        e.DataRow("QKDJ2") = Nothing

        e.DataRow("QKYHLB2") = Nothing

        e.DataRow("MZFS2") = Nothing

        e.DataRow("MZYS2") = Nothing    

   End If

End If

If e.DataCol.Name = "SSJCZBM3" Then '如果更改的是手术及操作编码列

    If e.DataRow.IsNull("SSJCZBM3") Then '手术及操作编码是否为空

        e.DataRow("SSJCZMC3") = Nothing   '手术操作日期 名称为空

        e.DataRow("SSJCZRQ3") = Nothing

        e.DataRow("SSJB3") = Nothing

        e.DataRow("SZ3") = Nothing

        e.DataRow("YZ3") = Nothing

        e.DataRow("EZ3") = Nothing

        e.DataRow("QKDJ3") = Nothing

        e.DataRow("QKYHLB3") = Nothing

        e.DataRow("MZFS3") = Nothing

        e.DataRow("MZYS3") = Nothing    

   End If

End If

If e.DataCol.Name = "SSJCZBM4" Then '如果更改的是手术及操作编码列

    If e.DataRow.IsNull("SSJCZBM4") Then '手术及操作编码是否为空

        e.DataRow("SSJCZMC4") = Nothing   '手术操作日期 名称为空

        e.DataRow("SSJCZRQ4") = Nothing

        e.DataRow("SSJB4") = Nothing

        e.DataRow("SZ4") = Nothing

        e.DataRow("YZ4") = Nothing

        e.DataRow("EZ4") = Nothing

        e.DataRow("QKDJ4") = Nothing

        e.DataRow("QKYHLB4") = Nothing

        e.DataRow("MZFS4") = Nothing

        e.DataRow("MZYS4") = Nothing    

   End If

End If

If e.DataCol.Name = "SSJCZBM5" Then '如果更改的是手术及操作编码列

    If e.DataRow.IsNull("SSJCZBM5") Then '手术及操作编码是否为空

        e.DataRow("SSJCZMC5") = Nothing   '手术操作日期 名称为空

        e.DataRow("SSJCZRQ5") = Nothing

        e.DataRow("SSJB5") = Nothing

        e.DataRow("SZ5") = Nothing

        e.DataRow("YZ5") = Nothing

        e.DataRow("EZ5") = Nothing

        e.DataRow("QKDJ5") = Nothing

        e.DataRow("QKYHLB5") = Nothing

        e.DataRow("MZFS5") = Nothing

        e.DataRow("MZYS5") = Nothing    

   End If

End If

If e.DataCol.Name = "SSJCZBM6" Then '如果更改的是手术及操作编码列

    If e.DataRow.IsNull("SSJCZBM6") Then '手术及操作编码是否为空

        e.DataRow("SSJCZMC6") = Nothing   '手术操作日期 名称为空

        e.DataRow("SSJCZRQ6") = Nothing

        e.DataRow("SSJB6") = Nothing

        e.DataRow("SZ6") = Nothing

        e.DataRow("YZ6") = Nothing

        e.DataRow("EZ6") = Nothing

        e.DataRow("QKDJ6") = Nothing

        e.DataRow("QKYHLB6") = Nothing

        e.DataRow("MZFS6") = Nothing

        e.DataRow("MZYS6") = Nothing    

   End If

End If

If e.DataCol.Name = "SSJCZBM7" Then '如果更改的是手术及操作编码列

    If e.DataRow.IsNull("SSJCZBM7") Then '手术及操作编码是否为空

        e.DataRow("SSJCZMC7") = Nothing   '手术操作日期 名称为空

        e.DataRow("SSJCZRQ7") = Nothing

        e.DataRow("SSJB7") = Nothing

        e.DataRow("SZ7") = Nothing

        e.DataRow("YZ7") = Nothing

        e.DataRow("EZ7") = Nothing

        e.DataRow("QKDJ7") = Nothing

        e.DataRow("QKYHLB7") = Nothing

        e.DataRow("MZFS7") = Nothing

        e.DataRow("MZYS7") = Nothing    

   End If

End If

dim str() as string={"SSJCZMC1","SSJCZRQ1","SSJB1","SZ1"}

If e.DataCol.Name = "SSJCZBM1" Then '如果更改的是手术及操作编码列

    If e.DataRow.IsNull("SSJCZBM1") Then '手术及操作编码是否为空

       for each s as string in str

           e.DataRow(s)=nothing

       next

   End If

End If

谢谢，去测试！

运行正常，再次感谢！