PB数据窗口保存前删除空行（转）

ehxz · 2015-5-28 16:20:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？站点注册

×

在UpdateStart事件中添加以下代码：

Long ll_row

FOR ll_row = RowCount() To 1 Step -1

If ((IsNull(Object.part_no[ll_row])) Or (Object.part_no[ll_row] = "")) THEN
SetRow(ll_row)
DeleteRow(0)
CONTINUE
END IF

NEXT

RETURN

rbrjgzs · 2016-6-3 14:47:06

测试成功，可用

叫兽兽 · 2023-7-6 10:18:35

SQLserver产生的空行，setfilter(" not isnull(col) ")还过滤不掉，而且find找到的始终是空行，最后只有删除空行才行

swimchen · 2023-9-25 05:33:57

本帖最后由 swimchen 于 2023-9-25 05:38 编辑

THIS.SetRedraw(False) //加速界面显示
LONG ll_Row
FOR ll_Row=THIS.RowCount() TO 1 STEP -1
IF THIS.GetItemStatus(ll_Row,0,Primary!)=New! THEN THIS.RowsDiscard(ll_Row,ll_Row,Primary!) //RowsDiscard和DeleteRow的区别是DeleteRow会生成Delete SQL
NEXT
FOR ll_Row=THIS.FilteredCount() TO 1 STEP -1
IF THIS.GetItemStatus(ll_Row,0,Filter!)=New! THEN THIS.RowsDiscard(ll_Row,ll_Row,Filter!)
NEXT
THIS.SetRedraw(True)

swimchen · 2023-9-25 05:38:28

THIS.SetRedraw(False) //加速界面显示 LONG ll_Row FOR ll_Row=THIS.RowCount() TO 1 STEP -1 IF THIS.GetItemStatus(ll_Row,0,Primary!)=New! THEN THIS.RowsDiscard(ll_Row,ll_Row,Primary!) //RowsDiscard和DeleteRow的区别是DeleteRow会生成Delete SQL NEXT FOR ll_Row=THIS.FilteredCount() TO 1 STEP -1 IF THIS.GetItemStatus(ll_Row,0,Filter!)=New! THEN THIS.RowsDiscard(ll_Row,ll_Row,Filter!) NEXT THIS.SetRedraw(True)

[参考资料] PB数据窗口保存前删除空行（转）

[参考资料] PB数据窗口保存前删除空行（转）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

账号		站点注册	自动登录	找回密码
密码			站点注册