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,源码bookmanager源码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('提示','进货类商品信息未保存，是源码12315源码否先保存数据!',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('提示','销售类商品信息未保存，是源码kbox源码否先保存数据!',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 if

        

       if 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

源码