[浏览完整版]
标题：新增行
1楼
1234567 发表于：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楼
有点蓝 发表于：2024/8/16 12:07:00代码放在什么事件的？
3楼
1234567 发表于：2024/8/16 12:30:00放在Button控件的Click事件中
4楼
有点蓝 发表于：2024/8/16 13:08:00先看看：http://www.foxtable.com/webhelp/topics/0604.htm，注意不同事件有不同的e参数，按钮是没有e.table这种东西的，改为具体的表比如：tables("表A")
5楼
1234567 发表于：2024/8/16 13:45:00Dim 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
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楼
有点蓝 发表于：2024/8/16 13:49:00Dim 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就是上一行
7楼
1234567 发表于：2024/8/16 14:53:00[计划完成日期]=[计划开始日期]+[工期]
[计划开始日期]=上一行的[计划完成日期]
当我在某一行的[计划开始日期]列中输入一个日期，自动计算出该行的[计划完成日期]及下面所有行的[计划完成日期]和[计划完成日期]（图示的打马赛克区域），求代码？
此主题相关图片如下：1.png
[此贴子已经被作者于2024/8/16 14:53:32编辑过]
8楼
有点蓝 发表于：2024/8/16 15:15:00datacolchanged事件
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
9楼
1234567 发表于：2024/8/16 15:35:00蓝版，8楼的代码在主表中可以运行，在窗口的副本表中运行时，系统自动停止运行了。另外窗口的副本表的排序不是按主键进行排序，而是按[第一列]内容进行排序的。
10楼
有点蓝 发表于：2024/8/16 16:18:00应该是有其它代码互相影响了
代码是人写的，按哪一列排序，自己改改不就行了