pb中删除事件, ue_del 删除数据窗口某列的值或全部行

孟伟龙 / 2023-05-17 / 原文

// 删除“开松工艺单”
Long    ll_rowCount, ll_temp=1, ll_row, ll_id
String ls_openCraft

ls_openCraft = this.tab_1.tabpage_1.dw_1.Object.open_craft[1]
    
ll_id = Tab_1.Tabpage_1.dw_1.Object.order_id[1]

ll_rowCount = this.tab_1.tabpage_1.dw_4.RowCount()
ll_row = this.tab_1.tabpage_1.dw_4.getRow()
// 无数据直接返回
if (Len(ls_openCraft) = 0 or IsNull(ls_openCraft)) and ll_rowCount < 1 then Return 0

if MessageBox("提示","你是否要删除工艺单" ,Question!,YesNo!,1) = 2 then Return 0
// 清空“开松工艺”
this.tab_1.tabpage_1.dw_1.setItem(1, "open_craft", "")
do while ll_temp <= ll_rowCount
    this.tab_1.tabpage_1.dw_4.DeleteRow(ll_row)
    ll_temp ++
loop

IF Tab_1.Tabpage_1.dw_4.Update(True,False) = -1 Then
    Rollback;
    MessageBox("提示","工艺单删除出现错误1!~r~n"+Tab_1.Tabpage_1.dw_4.Of_GetDBError(),StopSign!,OK!)
    Return -1
End IF

IF Tab_1.Tabpage_1.dw_1.Update(True,False) = -1 Then
    Rollback;
    MessageBox("提示","工艺单删除出现错误2!~r~n"+Tab_1.Tabpage_1.dw_1.Of_GetDBError(),StopSign!,OK!)
    Return -1
End IF

Commit;
// 清除缓存区的更新标志及数据
Tab_1.Tabpage_1.dw_4.ReSetUpdate()
Tab_1.Tabpage_1.dw_1.ReSetUpdate()
// 数据窗口检索数据
Event ue_RetrieveData(ll_id)
MessageBox("提示","工艺单删除成功!")
return 1