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

如何引用？代码中有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的单击事件都是上面的代码。如何引用简化。