- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 单元格数据增加怎么弄？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23391)
-- 发布时间：2012/9/11 9:14:00
-- 单元格数据增加怎么弄？
我希望在附件的窗口中 选择名称后 输入 金额，金额能对应累加到 表A中对应名称的金额中
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6.table |
-- 发布时间：2012/9/11 9:49:00
--
建议多看帮助，有时间的话，练习一下帮助中的小例子。
Dim name As String = e.Form.Controls("ComboBox1").Text
Dim money As String = e.Form.Controls("TextBox1").Text
Dim dr As DataRow = DataTables("表A").Find("名称 = \'" & name & "\'")
If dr IsNot Nothing Then
dr("金额") = dr("金额") + money
End If
-- 发布时间：2012/9/11 13:55:00
--
以下是引用lin_hailun在2012-9-11 9:49:00的发言：
建议多看帮助，有时间的话，练习一下帮助中的小例子。
Dim name As String = e.Form.Controls("ComboBox1").Text
Dim money As String = e.Form.Controls("TextBox1").Text
Dim dr As DataRow = DataTables("表A").Find("名称 = \'" & name & "\'")
If dr IsNot Nothing Then
dr("金额") = dr("金额") + money
End If
建议多看帮助，有时间的话，练习一下帮助中的小例子。
Dim name As String = e.Form.Controls("ComboBox1").Text
Dim money As String = e.Form.Controls("TextBox1").Text
Dim dr As DataRow = DataTables("表A").Find("名称 = \'" & name & "\'")
If dr IsNot Nothing Then
dr("金额") = dr("金额") + money
End If
我之前也是这么写的 发现不行，以为代码写的不对，现在查出来了 原来不是代码的问题 是其他原因 呵呵