<pre id=\\\"best-answer-content\\\">//这个应该是点击了数据窗口中的一个按钮后出发的事件
//按钮名称为 b_2
Long ll_rowcount,ll_row,ll_row1
String ls_end
IF dwo.Name = \\\'b_2\\\' THEN
ll_rowcount= dw_2.RowCount()//取dw_2数据窗口中的总行数,放到ll_rowcount变量中
IF ll_rowcount0 THEN //如果行数0,执行后续代码--意思是如果dw_2中没有数据则终止
//开始从第一行循环取dw_2中数据
FOR ll_row1 = 1 TO ll_rowcount
//取第ll_row1行(会跟着循环递增)中mr31_mr31_end列的数据,放在变量ls_end中
ls_end = dw_2.GetItemString(ll_row1,\\\'mr31_mr31_end\\\')
IF ls_end = \\\'0\\\' or isnull(ls_end) THEN//如果取出的数据为0或者没有数据
dw_2.SetItem(ll_row1,\\\'mr31_mr31_end\\\',\\\'2\\\') //将此行的mr31_mr31_end列修改为\\\'2\\\'
END IF
NEXT
END IF
END IF
|