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

请帮助给解决写代码？

如图：

如果单位为A  数值*给一组

              B  数值*给二组

              C  数值*给三组

              D  数值*给一组

              E  数值*给二组

              G  数值*给一组

此主题相关图片如下：19.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

这样？

 

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

非常感谢