主题：列赋值的问题

将你这个表和窗口上传，我写好代码给你看看。

确定按钮的代码：

Dim nm As String  = e.Form.Controls("cb1").Value
If nm > "" Then
    If e.Form.Controls("tb1").Value IsNot Nothing Then
        Dim v As Double = e.Form.Controls("tb1").value
        For Each r As Row In Tables("ab").Rows
            r(nm)  = v
        Next
    ElseIf e.Form.Controls("tb2").value IsNot Nothing
        Dim v As Double = e.Form.Controls("tb2").value
        For Each r As Row In Tables("ab").Rows
            Select Case e.Form.Controls("cb2").value
                Case "+"
                    r(nm)  = r(nm) + v
                Case "-"
                    r(nm)  = r(nm) - v
                Case "*"
                    r(nm)  = r(nm) * v
                Case "/"
                    r(nm)  = r(nm) / v
            End Select
        Next
    End If
End If