主题：列赋值的问题

此主题相关图片如下：表.png


此主题相关图片如下：单项调整.png

我想在窗口1的组合框的值对应AB表中的列,然后通过确定按钮使TB1的值赋予选定的列,这个是可以通过替换来完成,但是

选定列现有的值通过运算TB2的值得到新值无法完成,能否提供个思路,或借鉴的实例..谢谢

 

不明白说什么?如果组合框给列赋值代码是这样的!

 

Dim r As Row = Tables("表名").AddNew
r("列名")=Forms("窗口2").Controls("控件名").Value

我想表达的意思是工资项的组合框对应的是AB表的列名,当我在组合框中选中一个列名后在调整为的文本框或者运算+,-,*,/的文本框的值.则AB表的列统一赋予一个值,或则统一+,-,*,/一个值.    楼上的回帖是增加一行数据,不是我的意思

此主题相关图片如下：表.png


此主题相关图片如下：单项调整.png

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

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

点击浏览该文件:管理项目7.rar

确定按钮的代码：

 

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