// 删除“开松工艺单”
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
标签：某列,删除,ll,tabpage,pb,ls,tab,openCraft,dw From： https://www.cnblogs.com/mengweilong/p/17408661.html