- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]副本Table之行位置联动 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35246)
-- 发布时间：2013/6/27 10:45:00
-- [求助]副本Table之行位置联动
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
If e.Table.rows.count = 0 Then
Return
End If
If wz >=0 Then
Tables("窗口1_Table1").Position = wz
If e.Table.rows.count = 0 Then
Return
End If
End If
这句话帮忙看一下哪里有错了
此主题相关图片如下：212.png
黑框里的副本表没有任何行的时候就提示出错，求教应该怎么改
-- 发布时间：2013/6/27 10:51:00
--
没有任何行的时候就没有当前行, 没有当前行你获取当前行当然会报错
判断一下即可 if e.Table.Current isnot nothing then
-- 发布时间：2013/6/27 11:11:00
--
还是上例子最好了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2013/6/27 11:12:00
--
这个代码是放在窗口Table控件里的
-- 发布时间：2013/6/27 11:14:00
--
If Forms("窗口1").Opened AndAlso e.Table.rows.count > 0 Then
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
If wz > = 0 Then
Tables("窗口1_Table1").Position = wz
Else
Return
End If
End If
-- 发布时间：2013/6/27 11:24:00
--
此主题相关图片如下：212.png
但是处于这种没行的状态下 添加一行的话还是报同样的错误
-- 发布时间：2013/6/27 11:27:00
--
谢谢大家了我找到原因了