关于子表的DynamicBackColor斑马色隔行显示，记录号分隔不太好用，各位有什么好办法

以下是引用laowan001在2023-4-27 15:57:58的发言：

子表增加一个标识字段，按索引顺序赋值，内容是类似recn()的顺序号，这样也许行

以下是引用东海ECS在2023-4-28 19:04:47的发言：

使用 DynamicBackColor 属性实现斑马色隔行的方法在子表中通常是通过给记录号分配颜色来实现，但这种方法的确存在一些限制。

如果记录号分隔不好用，可以尝试使用 DataGridView 的 AlternatingRowsDefaultCellStyle 属性来实现斑马色隔行效果，具体操作如下：

打开子表的属性窗口，选择“DataGridView”节点，找到“DefaultCellStyle”属性，展开后可以看到“AlternatingRowsDefaultCellStyle”属性。
点击“AlternatingRowsDefaultCellStyle”的“...”按钮，进入编辑窗口。
在编辑窗口中设置颜色，比如“BackColor”设置为“LightGray”。
点击确定，保存设置。
这样，就可以在子表中实现斑马色隔行效果，且不需要额外的记录号列。如果需要给特定行设置不同的背景色，可以使用 DataGridView 的“CellFormatting”事件来实现。

以下是引用吹水佬在2023-4-29 09:02:43的发言：
因为当GRID不具有焦点或访问表格空白行时 ActiveRow 为 0，所以当滚动时要重新使GRID具有焦点。
但GRID的滚动事件Scrolled也有点特别，不能在Scrolled事件中出现“中断”状态，VFP帮助说的是因为当滚动时会出现屏幕刷新问题。

以下是引用csyx在2023-4-29 12:37:20的发言：


如果 ActiveRow 能具有确定性，我不会说勉强可接受

以下是引用吹水佬在2023-4-29 15:54:16的发言：



有个问题：grid失焦时ActiveRow为0，导致不管当前在那一行MOD(this.ActiveRow,2)都为0。
简单测试了一下，其他好像还可以接受。




DECLARE LONG PostMessage IN User32 LONG, LONG, LONG, LONG

CREATE CURSOR tt (F1 I, F2 C(10))
FOR i = 1 TO 100
    INSERT INTO tt VALUES (i%2, PADL(i,4,"0"))
ENDFOR
GO TOP

of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 As Form
    AllowOutput = 0
    AutoCenter  = 1
    ADD OBJECT cmd1  as commandbutton WITH top=4,left=10,height=22,caption="SORT"
    ADD OBJECT text1 as textbox       WITH top=4,left=120
    ADD OBJECT grid1 as myGrid        WITH top=30
   
    PROCEDURE Init
        BINDEVENT(this.hWnd, 0x401, this, "myGridSetFocus")
        PostMessage(thisform.hWnd, 0x401, 0, 0)
    ENDPROC
     
    PROCEDURE cmd1.Click
        IF DESCENDING()
            INDEX on F2 TAG tt_F2 ASCENDING
        ELSE
            INDEX on F2 TAG tt_F2 DESCENDING
        ENDIF
        thisform.Grid1.SetFocus
    ENDPROC
   
    FUNCTION myGridSetFocus(hWnd, nMsg, wParam, lParam)
        this.Grid1.SetFocus
    ENDPROC   
ENDDEFINE

DEFINE CLASS myGrid as Grid
    PROCEDURE init
        this.SetAll("DynamicBackColor", "IIF(MOD(this.ActiveRow,2)==0,0xF0F0F0,0xC0C0C0)", "Column")
    ENDPROC

    PROCEDURE Scrolled(nDirection)
        DODEFAULT()
        PostMessage(thisform.hWnd, 0x401, 0, 0)
    ENDPROC
ENDDEFINE