主题：[求助]想问下这个表能不能做的出来

   第一次写的东西，看能不能行，请大家指教：

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "数量","单价","打款"
        dr("金额")=dr("数量")*dr("单价")
        If dr("金额") IsNot Nothing Then
            dr("余额")=dr("金额")-dr("打款")
        Else
            dr("余额") = Nothing
        End If
   

End Select