- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 不同按钮控制不同单行的数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116591)
-- 发布时间：2018/3/27 16:38:00
-- 不同按钮控制不同单行的数据
如下图，不同的减号控制不同行的数量，这个应该怎么？
此主题相关图片如下：1130.jpg
-- 发布时间：2018/3/27 16:42:00
--
比如按钮1
Dim t As Table = Tables("表A")
Dim cr As Row = t.current
t.rows(cr.index-1)("数量") = t.rows(cr.index-1)("数量") - 1
按钮2
Dim t As Table = Tables("表A")
Dim cr As Row = t.current
t.rows(cr.index+1)("数量") = t.rows(cr.index+1)("数量") - 1
-- 发布时间：2018/3/28 6:56:00
--
出现了错误，如下图：
此主题相关图片如下：1.pic.jpg
-- 发布时间：2018/3/28 9:04:00
--
Dim t As Table = Tables("表A")
Dim cr As Row = t.current
If cr.Index = 0 Then
msgbox("没有上一行")
Else
t.rows(cr.index-1)("数量") = t.rows(cr.index-1)("数量") - 1
End If
-- 发布时间：2018/3/28 18:10:00
--
还是有问题，表里有多行数据，每个减号按钮控制特定的一行数据，现在这样写还是不行
-- 发布时间：2018/3/28 18:13:00
--
Dim t As Table = Tables("表A")
t.rows(0)("数量") = t.rows(0)("数量") - 1
-----------
Dim t As Table = Tables("表A")
t.rows(1)("数量") = t.rows(1)("数量") - 1
-- 发布时间：2018/4/2 7:53:00
--
指定行是可以修改，但是我需要动态获取我需要的那一行，用上了 FindRow ，但是又出错了，如下图：
此主题相关图片如下：1.pic.jpg
-- 发布时间：2018/4/2 8:49:00
--
回复7楼，最后一行代码，请写在 if 判断里面。
如果没反应，说明你findrow的时候，有可能没找到对应的行，设置的条件有问题 http://www.foxtable.com/webhelp/scr/1647.htm
-- 发布时间：2018/4/3 0:18:00
--
这个问题已经解决了，但是换了别的代码解决了，贴出来让其他朋友也可以看到：
With Tables("订单.订单详情表")
Dim r As Integer
r = .Find("大奥利奥咸奶油蛋糕", .RowSel + 1, "菜品", False, False, True)
If r > - 1 Then \'如果找到符合条件的行
.Position = r \'则选择该行
t.rows(r)("数量") = t.rows(r)("数量") - 1
e.Form.Controls("TextBox01").text = t.rows(r)("数量")
End If
End With
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
还要再追问一下，如下图：怎么能让这三个文本框在刚打开页面的时候默认显示表里的数据：
此主题相关图片如下：1.pic.jpg
-- 发布时间：2018/4/3 0:20:00
--
再追一下问题的描述：