Question

VB调用surfer划等值线，不能显示站点汉字标注

我用VB调用surfer划等值线，原来做好了能显示站点的汉字标注，可是我从新再给别人做的时候就不能显示了，代码都是一样的。如下：
.............
strGridFile = Left(strInFile, Val(InStrRev(strInFile, ".")) - 1) + ".grd" '把扩展名改为.grd
Set objSurfer = CreateObject("Surfer.Application") objSurfer.Visible = False
temp = objSurfer.GridData(DataFile:=strInFile, ShowReport:=False, Algorithm:=srfKriging, _
DupMethod:=srfDupNone, xMin:=118.78, xMax:=119.82, yMin:=43.61, yMax:=44.8, OutGrid:=strGridFile)
temp = objSurfer.GridBlank(Ingrid:=strGridFile, blankfile:="D:\Datafile\Blank\bj.bln", OutGrid:="D:\Datafile\Gridstroe\out.grd")
Set objPlot = objSurfer.Documents.Add(srfDocPlot) '创建srf文件
Set objMapFrame = objPlot.Shapes.AddContourMap("D:\Datafile\Gridstroe\out.grd")
Dim ContourMap As Object
Set ContourMap = objMapFrame.Overlays(1)
'将等值线图形属性指定给变量ContourMap。
ContourMap.Levels.LoadFile ("D:\Datafile\Blank\sb.lvl")
'加载等值线填充色彩分级文件。
ContourMap.SmoothContours = 4
'平滑等值线。
ContourMap.FillContours = True
'填充等值线

Dim myBasemap As Object
Set myBasemap = objPlot.Shapes.AddBaseMap(ImportFileName:="D:\Datafile\Blank\qh.bln")
---------------------------------------------------------------
Dim postmapframe As Object
Set postmapframe = objPlot.Shapes.AddPostMap(dataFileName:="D:\Datafile\city\station.dat", xCol:=1, yCol:=2, LabCol:=4)
--------------------------------------------------------------
objPlot.Shapes.SelectAll
Dim sel As Object
Set sel = objPlot.Selection
sel.OverlayMaps
Lbl1.Visible = False
objPlot.Export FileName:=Left(strInFile, Val(InStrRev(strInFile, ".")) - 1) + ".bmp" '输出bmp
Picture1.Picture = LoadPicture(Left(strInFile, Val(InStrRev(strInFile, ".")) - 1) + ".bmp") '显示bmp
原来我觉得问题是出在我用虚线标注的地方，我调用的station.dat文件格式是 经度，纬度，雨量，站点。当我把站点的汉字去掉后就能显示数字标准，但是我在station.dat里加上汉字，结果就不能显示标准了。
看看哪位大侠帮我解决一下怎么办。我原来的程序就是这样的，显示汉字标注了，现在却怎么调试也不通过。

Answer 1

看改一个行或许就好了，比如LabCol:=3