主题：不同按钮控制不同单行的数据

如下图，不同的减号控制不同行的数量，这个应该怎么？

比如按钮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

出现了错误，如下图：

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

还是有问题，表里有多行数据，每个减号按钮控制特定的一行数据，现在这样写还是不行

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

指定行是可以修改，但是我需要动态获取我需要的那一行，用上了 FindRow ，但是又出错了，如下图：

回复7楼，最后一行代码，请写在 if 判断里面。

 

如果没反应，说明你findrow的时候，有可能没找到对应的行，设置的条件有问题 http://www.foxtable.com/webhelp/scr/1647.htm

 

 

这个问题已经解决了，但是换了别的代码解决了，贴出来让其他朋友也可以看到：

再追一下问题的描述：