Use the .Row, .Column and .Data properties like this<br>
<br>
with ThisForm.Chart<br>
select results<br>
<br>
.RowCount = min(m.reccnt, 48)<br>
.ColumnCount = 1<br>
<br>
r = 1<br>
scan for !empty(noshipment)<br>
scatter memvar<br>
<br>
if r <= .RowCount<br>
.Row = r<br>
.Column = 1<br>
.Data = m.cusper<br>
.DataGrid.RowLabel(r,1) = alltrim(str(m.noshipment))<br>
endif <br>
<br>
r = r + 1 <br>
endscan<br>
endwith<br>