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.")