把bm整个显示在field中
for i=0 to 13 
 for j=0 to 11
  field1.datavalue=field1.datavalue & bm(i,j) & " "
 next j
 field1.datavalue =field1.datavalue & vbcrlf
next i