主题：请帮助给解决写代码？

这样？

If e.DataCol.Name = "数值"
    Select Case e.DataRow("单位")
        Case "A","D","G"
            e.DataRow("一组") = e.DataRow("数值")
        Case "B","E"
            e.DataRow("二组") = e.DataRow("数值")
        Case "C"
            e.DataRow("三组") = e.DataRow("数值")
    End Select
End If