- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口锁定行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62945)
-- 发布时间：2015/1/10 16:14:00
-- 窗口锁定行
我在销售管理，销售出库单的审核新增按钮上加代码
Tables("父表名称").Current.locked = True For Each dr As DataRow In Tables("父表名称").Current.DataRow.GetChildRows("子表名称") dr.locked = True Next 都不行，难道非要家到afterload里面，但是加在afterload里面我的反审核代码不知道怎么做了
| ||||
-- 发布时间：2015/1/10 16:20:00
--
Tables("父表名称").Current.locked = false
For Each dr As DataRow In Tables("父表名称").Current.DataRow.GetChildRows("子表名称")
dr.locked = false
Next
-- 发布时间：2015/1/10 16:44:00
-- 回复
终于懂了，与代码顺序有关系，我说怎么总是不能执行，但是出现新的问题了，我关闭窗口的事件添加了删除空白行的代码，只能删除当前的行的，如果更多是空白行就删除不了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:吉星工艺进销存.table |
-- 发布时间：2015/1/10 16:50:00
--
Dim r As DataRow
For i As Integer = DataTables("销售货款明细表").DataRows.count-1 To 0
r=DataTables("销售货款明细表").DataRows(i)
If r.IsNull("应收货款") And r.IsNull("已收货款")
r.Delete
End If
Next
-- 发布时间：2015/1/10 16:55:00
-- 回复
大师这个代码没用？
-- 发布时间：2015/1/10 17:03:00
--
Dim r As DataRow For i As Integer = DataTables("销售货款明细表").DataRows.count-1 To 0 step-1 \'漏了这个 r=DataTables("销售货款明细表").DataRows(i) If r.IsNull("应收货款") And r.IsNull("已收货款") r.Delete End If Next |
-- 发布时间：2015/1/10 17:15:00
-- 回复
效果跟我的一样DataTables("销售货款明细表").DeleteFor("应收货款 Is null And 已收货款 Is null")，只能删除一行，可能我单机审核新增这个按钮，都锁住了删除不了
-- 发布时间：2015/1/10 17:17:00
--
DataTables("销售货款明细表").DeleteFor("应收货款 Is null And 已收货款 Is null") 这个肯定可以删除所有的. 如果只能删除一行说明只有一行符合条件
-- 发布时间：2015/1/10 17:20:00
-- 回复
还是不可以的
[此贴子已经被作者于2015-1-10 17:22:58编辑过]
-- 发布时间：2015/1/10 17:29:00
--
请大师看下
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:吉星工艺进销存.table |