1.PB中 tab页问题
2.pb判断一下当前有没有资料可修改或删除
PB中 tab页问题
哥们 我的源码是这么做的,希望可以帮助到你。源码微博导航 源码tab_1.tabpage_1.dw_tabpage_basicinfo.accepttext()
tab_1.tabpage_2.dw_tabpage_articbuyin.accepttext()
tab_1.tabpage_3.dw_tabpage_articsale.accepttext()
tab_1.tabpage_4.dw_tabpage_articprov.accepttext()
if tab_1.tabpage_1.dw_tabpage_basicinfo.getnextmodified(0,源码mxy源码primary!) > 0 then
choose case messagebox('提示','基商品信息未保存,是源码影院 源码否先保存数据!',Question!,YesNoCancel!,3)
case 1
if tab_1.tabpage_1.dw_tabpage_basicinfo.event sy_save() <> 1 then return 1
case 2
return 0
case 3
return 1
end choose
end if
if tab_1.tabpage_2.dw_tabpage_articbuyin.getnextmodified(0,primary!) > 0 then
choose case messagebox('提示','进货类商品信息未保存,是源码源码加固否先保存数据!',Question!,YesNoCancel!,3)
case 1
if tab_1.tabpage_2.dw_tabpage_articbuyin.event sy_save() <> 1 then return 1
case 2
return 0
case 3
return 1
end choose
end if
if tab_1.tabpage_3.dw_tabpage_articsale.getnextmodified(0,primary!) > 0 then
choose case messagebox('提示','销售类商品信息未保存,是源码stockranker源码否先保存数据!',Question!,YesNoCancel!,3)
case 1
if tab_1.tabpage_3.dw_tabpage_articsale.event sy_save() <> 1 then return 1
case 2
return 0
case 3
return 1
end choose
end ifif tab_1.tabpage_4.dw_tabpage_articprov.getnextmodified(0,primary!) > 0 then
choose case messagebox('提示','商品的供应商信息未保存,是源码否先保存数据!',Question!,YesNoCancel!,3)
case 1
if tab_1.tabpage_4.dw_tabpage_articprov.event sy_save() <> 1 then return 1
case 2
return 0
case 3
return 1
end choose
end if
pb判断一下当前有没有资料可修改或删除
数据窗的吗?如果是 就用DeletedConut()和ModifiedCount()这两个函数分辨判断是否删除和修改数据.
例子在窗口的closeQuery事件中写如下代码:
dw_1.AcceptText()
IF dw_1.DeletedCount() + dw_1.ModifiedCount() > 0 THEN
IF MessageBox("系统提示","数据已修改,是源码否保存?",Question!,YesNo!,1) = 1 THEN
if dw_1.Update() =1 then
commit;
messagebox("","保存成功!")
else
rollback;
messagebox("",源码"保存失败!")
源码END IF
源码else
源码Return 0 //关闭窗口
源码END IF
源码