- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教：2个相同的代码，1个正确执行，1个出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65716)
-- 发布时间：2015/3/21 9:03:00
-- 请教：2个相同的代码，1个正确执行，1个出错
目录树1 双击：正确
Dim r As Row = Tables("实体预算书").Current
Dim dr As DataRow = e.Node.DataRow
r("定额编号") = dr("项目编码")
MainTable.Select(Tables("实体预算书").Position + 1 ,1)
目录树2 单击：出现错误
If e.Node.Level = 2 Then
Dim r As Row = Tables("实体预算书").Current
Dim dr2 As DataRow = e.Node.DataRow
r("定额编号") = dr2("定额编号")
MainTable.Select(Tables("实体预算书").Position + 1 ,1)
End If
此主题相关图片如下：2015-03-21_090013.png
[此贴子已经被作者于2015/3/21 10:36:08编辑过]
-- 发布时间：2015/3/21 9:04:00
--
另：请教如何判断最末级节点
IF 最末级节点 THEN
1楼的文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
[此贴子已经被作者于2015/3/21 16:01:46编辑过]
-- 发布时间：2015/3/21 9:52:00
--
在 Bin 版主的指点下，第二个错误（下图问题）解决了。1、2楼的问题 麻烦各位给看看 列改变后 代码修改后，错误不再出现。 CurrentTable.Select(Tables("实体预算书").Position ,8) 换成 MainTable.Select(Tables("实体预算书").Position ,8) |
此主题相关图片如下：2015-03-21_094413.png
[此贴子已经被作者于2015/3/21 13:07:46编辑过]
-- 发布时间：2015/3/21 9:54:00
--
MainTable.Select(Tables("实体预算书").Position + 1 ,8)
你要干嘛?
-- 发布时间：2015/3/21 9:57:00
--
是移动至下一行，连续添加
即使没有这个命令，也一样错误
[此贴子已经被作者于2015/3/21 10:00:29编辑过]
-- 发布时间：2015/3/21 10:00:00
--
你没有第9列 或者是Position +1 超出了最后一行
-- 发布时间：2015/3/21 10:01:00
--
if Tables("实体预算书").Position < Tables("实体预算书").row.count-1 then
-- 发布时间：2015/3/21 10:02:00
--
共20多列，也不是最后一行
即使没有这个命令，也一样错误
-- 发布时间：2015/3/21 10:04:00
--
上例子
-- 发布时间：2015/3/21 10:04:00
--
你看错误提示.错误在DataColChanged事件,而不是你发出来的代码