表单两个按钮组单击事件下代码，一模一样。如何简化。

既然是一模一样，就用一个。

如何引用？代码中有this.caption这样的代码，指当前对象。

慢慢挤啊

请明示

先讲清楚这两个按钮具体做什么用的。
再要看看完整代码是怎样写的，才好说怎样优化。

    ddd="command"+ALLTRIM(STR(this.value))+".backcolor"
    ddd8="command"+ALLTRIM(STR(this.value))+".caption"
    IF this.&ddd.!=RGB(212,200,140)
    this.&ddd.=RGB(212,200,140)
    UPDATE spxx SET ys="ys1" WHERE ALLTRIM(sp)==ALLTRIM(this.&ddd8.)
    CLOSE ALL
    ELSE
    IF this.&ddd.=RGB(212,200,140)
    this.&ddd.=RGB(212,208,200)
    UPDATE spxx SET ys="" WHERE ALLTRIM(sp)==ALLTRIM(this.&ddd8.)
    CLOSE ALL
    ENDIF
    ENDIF

按钮组commandgroup1,commandgroup2的单击事件都是上面的代码。如何引用简化。

完全一样的功能可以单独写的一段PRG，然后调用。如果代码不长则可以写在一个按钮事件中，在另一个按钮事件中写

使用参数
按钮组commandgroup1的Click代码：
Lparameters ,m.nValue
Local m.cValue
If Pcount()=0
  
  m.nValue=This.Value
Endif
m.cValue=Transform(m.nValue)
If Thisform.&cName..Command&cValue..BackColor=Rgb(212,200,140)
  Thisform.&cName..Command&cValue..BackColor=Rgb(212,208,200)
  Update spxx Set ys="" Where Alltrim(sp)==Alltrim(Thisform.&cName..Command&cValue..Caption)
Else
  Thisform.&cName..Command&cValue..BackColor=Rgb(212,200,140)
  Update spxx Set ys="ys1" Where Alltrim(sp)==Alltrim(Thisform.&cName..Command&cValue..Caption)
Endif
Use In Select("spxx")
按钮组commandgroup2等等的Click代码：
(This.Name,This.Value)

1、自定义表单方法 CommandGroupClick
    LPARAMETERS oCommandGroup
    IF oCommandGroup.Buttons(oCommandGroup.Value).BackColor != RGB(212,200,140)
        oCommandGroup.Buttons(oCommandGroup.Value).BackColor = RGB(212,200,140)
        UPDATE spxx SET ys="ys1" WHERE ALLTRIM(sp)==ALLTRIM(oCommandGroup.Buttons(oCommandGroup.Value).Caption)
    ELSE
        oCommandGroup.Buttons(oCommandGroup.Value).BackColor = RGB(212,208,200)
        UPDATE spxx SET ys="" WHERE ALLTRIM(sp)==ALLTRIM(oCommandGroup.Buttons(oCommandGroup.Value).Caption)
    ENDIF
    CLOSE ALL

2、CommandGroup1.Click 和 CommandGroup2.Click
    (this)

[此贴子已经被作者于2017-10-16 08:47编辑过]