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

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