Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
哈哈~
第 1 项是狐爸的方法正确!gdtgl的办法也能调入,但是没有删除原有的内容。
第 2 项根据狐爸的稍微改两个小地方。
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
For i As integer = 1 To 8
DataTables("调用").AddNew()("编号") = Max + 1
Next
增加的行是在【调用】表中增加,编号列的内容要全部一样(即:【订单】表的最大编号+1)
另外,我原来问题的第2项中,还有两个没解决:a、增加行前要删除【调用】表中的所有行,b、有可能还要在8条后再增加行,此时再增的行的编码也要自动的等于Max + 1。
1、清除行
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
DataTables("订单").DataRows.Clear()
For i As integer = 1 To 8
DataTables("调用").AddNew()("编号") = Max + 1
Next
2、自己设计一个增加行的按钮:
With DataTables("调用")
.AddNew()("编号") = .DataRows(.DataRows.Count -1)("编号") + 1
End With
1、清除行
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
DataTables("订单").DataRows.Clear()
For i As integer = 1 To 8
DataTables("调用").AddNew()("编号") = Max + 1
Next
2、自己设计一个增加行的按钮:
With DataTables("调用")
.AddNew()("编号") = .DataRows(.DataRows.Count -1)("编号") + 1
End With
第1个好用! 但DataTables("订单")DataRows.Clear() 但"订单"要改成"调用",不然订单表上的数据就彻底没了!~ 哈哈,这会要命的呀。
第2个:新增行的编码都是 1 ?,如果是用按钮新增行这个代码就ok了:
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
DataTables("调用").AddNew()("编号") = Max + 1
但我的意思是:在设置回车向下增加行(8行以后的行)时自动填入这个Max + 1编号, 应该放在哪?
那么很简单,在DataRowAdding事件中加入如下代码:
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
e.Datarow("编号") = Max + 1
同时原来我给出的按钮代码:
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
For i As integer = 1 To 8
DataTables("订单").AddNew()("编号") = Max + i
Next
可以简化为一句:
Tables("订单").AddNew(8)
非常感谢!~ 很好。