主题：ValueByPoint

不知道你具体的代码是怎么写的？

Sub Technic_MouseMove(Button, Shift, x, y)
set Grid1 = Technic.GetGridByPt(x, y) 
  if not(Grid1 is nothing) then ‘这里要判断对象是否为空，养成良好的编程习惯

  set Grid1 = Technic.GetGridByName(Grid1.Name)
  Dim Values
  Dim Date
 
   x1=0
   y2=0
   call Grid1.FrameToGrid(x,y,x1,y2)
 
 call Grid1.ValueByPoint(x1, y2,Date,Values,true)
    v1 = round(Values, 0)
 application.msgout date & " "& v1 & "--"& Grid1.Name
 end if

End Sub