PB中查找被修改过的数据行

在实际开发过程中,一个思维严谨的程序员通常会在用户退出某个窗口前检查窗口内的数据是否被修改,如果数据被改动过,则提醒用户是否保存修改.下面是PB中显示被修改过的数据窗口行的实用代码

integer rc

long NbrRows, ll_row = 0, count = 0

dw_status.AcceptText()

NbrRows = dw_status.RowCount()

DO WHILE ll_row <= NbrRows

        ll_row = dw_status.GetNextModified(ll_row, Primary!)

        IF ll_row > 0 THEN

            count = count + 1

        ELSE

            ll_row = NbrRows + 1

        END IF

LOOP

MessageBox("Modified Count", &

        String(count) &

        + " rows were modified.")