- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 记录表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50886)
-- 发布时间：2014/5/15 8:58:00
-- 记录表
如何设计一个按钮，连续录入，当第一列10001的第三列和等于1时，录入当前行后，自动跳到10002，如此......
-- 发布时间：2014/5/15 9:00:00
--
没看懂
1.自动跳转和按钮有何相干?
2.第三列和等于1 是什么意思?
-- 发布时间：2014/5/15 9:00:00
--
最好能上个例子.
-- 发布时间：2014/5/15 9:01:00
--
为什么上传不了附件？
-- 发布时间：2014/5/15 9:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:记录表.table |
-- 发布时间：2014/5/15 9:02:00
--
请老师帮我加一下代码！
-- 发布时间：2014/5/15 9:14:00
--
不太懂你要实现到哪里去,
统计第三行利用
If e.Table.DataTable.Compute("sum(第三列)","第一列=\'" & e.Row("第一列") & "\'") >=1 Then
找到 1002 并且选中 利用
With CurrentTable
Dim r As Integer
r = .Find((cint(e.Row("第一列"))+1).ToString(), 0, "第一列", False, False, True)
If r > - 1 Then \'如果找到符合条件的行
.Select(r,2,r,2)
End If
End With
启用编辑利用
.StartEditing
-- 发布时间：2014/5/15 9:22:00
--
记录窗口内的线条如何 加粗？
-- 发布时间：2014/5/15 9:24:00
--
没办法
-- 发布时间：2014/5/15 9:31:00
--
代码If e.Table.DataTable.Compute("sum(第三列)","第一列=\'" & e.Row("第一列") & "\'") >=1 Then
With CurrentTable
Dim r As Integer
r = .Find((cint(e.Row("第一列"))+1).ToString(), 0, "第一列", False, False, True)
If r > - 1 Then \'如果找到符合条件的行
.Select(r,2,r,2)
End If
End With
.StartEditing
end if