Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新增行


  共有1809人关注过本帖树形打印复制链接

主题：新增行
帅哥哟，离线，有人找我吗？
1234567
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：816 积分：6387 威望：0 精华：0 注册：2013/2/18 17:46:00 		新增行  发帖心情 Post By：2024/8/16 10:33:00 [只看该作者]

新增行的【计划开始日期】等于上一行的【计划完成日期】，哪里错了？

 Dim r As Row = Tables("生产管理_Table04").AddNew()
If e.Row.Index < e.Table.Rows.count - 1 Then
    If e.Table.Rows(e.Row.Index - 1).IsNull("计划完成日期") = False Then
        r("计划开始日期") = e.Table.Rows(e.Row.Index - 1).IsNull("计划完成日期")
    End If
End If

[此贴子已经被作者于2024/8/16 10:59:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/16 12:07:00 [只看该作者]

代码放在什么事件的？

 回到顶部
帅哥哟，离线，有人找我吗？
1234567
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：816 积分：6387 威望：0 精华：0 注册：2013/2/18 17:46:00 		  发帖心情 Post By：2024/8/16 12:30:00 [只看该作者]

放在Button控件的Click事件中
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/16 13:08:00 [只看该作者]

先看看：http://www.foxtable.com/webhelp/topics/0604.htm，注意不同事件有不同的e参数，按钮是没有e.table这种东西的，改为具体的表比如：tables("表A")

 回到顶部
帅哥哟，离线，有人找我吗？
1234567
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：816 积分：6387 威望：0 精华：0 注册：2013/2/18 17:46:00 		  发帖心情 Post By：2024/8/16 13:45:00 [只看该作者]

Dim t As Table = e.Form.Controls("Table04").Table      '定义当前窗口中的Table
Dim r As Row = Tables("生产管理_Table04").AddNew()     '在生产管理_Table04中新增一行
If t.Rows( t.Row.Index - 1) IsNot Nothing And t.Rows( t.Row.Index - 1).IsNull("计划完成日期") = False Then       '如果存在上一行并且上一行的【计划完成日期】不为空，这句代码怎么写？
    r("计划开始日期") = t.Rows(t.Row.Index - 1).IsNull("计划完成日期")       '新增行的【计划开始日期】等于上一行的【计划完成日期】
End If

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/16 13:49:00 [只看该作者]

Dim t As Table = e.Form.Controls("Table04").Table      '定义当前窗口中的Table
f t.Rows.count > 0 
dim k as row = t.Rows(t.Rows.count - 1) ‘最后一行’
Dim r As Row = t.AddNew()     '新增后这个变成最后一行，上一个最后一行k就是上一行
 回到顶部
帅哥哟，离线，有人找我吗？
1234567
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：816 积分：6387 威望：0 精华：0 注册：2013/2/18 17:46:00 		  发帖心情 Post By：2024/8/16 14:53:00 [只看该作者]

[计划完成日期]=[计划开始日期]+[工期]

[计划开始日期]=上一行的[计划完成日期]

当我在某一行的[计划开始日期]列中输入一个日期，自动计算出该行的[计划完成日期]及下面所有行的[计划完成日期]和[计划完成日期]（图示的打马赛克区域），求代码？


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2024/8/16 14:53:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/16 15:15:00 [只看该作者]

datacolchanged事件

if e.datacol.name = "计划开始日期" andalso e.datarow.isnull("计划开始日期")=false then
dim d as date = e.datarow("计划开始日期")
dim d2 as date = d.adddays(e.datarow("工期"))
e.datarow("计划完成日期") = d2
for each dr as datarow in e.datatable.select("_sortkey >" & e.datarow("_sortkey"),"_sortkey")
dr("计划开始日期") = d2
d = d2
d2 = d.adddays(dr("工期"))
dr("计划完成日期") = d2
next
end if
 回到顶部
帅哥哟，离线，有人找我吗？
1234567
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：816 积分：6387 威望：0 精华：0 注册：2013/2/18 17:46:00 		  发帖心情 Post By：2024/8/16 15:35:00 [只看该作者]

蓝版，8楼的代码在主表中可以运行，在窗口的副本表中运行时，系统自动停止运行了。另外窗口的副本表的排序不是按主键进行排序，而是按[第一列]内容进行排序的。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/16 16:18:00 [只看该作者]

应该是有其它代码互相影响了

代码是人写的，按哪一列排序，自己改改不就行了
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询