C#代码转换成vb.net

[F1007]

for(int i=1;record!=null&&i<=record.RecordCount;i++)
{
region=(SuperMapLib.soGeoRegion)record.GetGeometry();
result=analyst.CutFill((SuperMapLib.soDataset)raster,region,(double)record.GetFieldValue("elev"));
strFill=result.FillVolume.ToString();
strCut=result.CutVolume.ToString();
this.lstViewAttribute.Items.Add("CODE "+record.GetFieldValue("code").ToString());
this.lstViewAttribute.Items[i-1].SubItems.Add(strFill);
this.lstViewAttribute.Items[i-1].SubItems.Add(strCut);
record.MoveNext();
}
请问以上C#代码怎么转换成vb.net的代码,谢谢了.

[glacier111]

看着语法转就是了，没什么难的吧

[viena]

for i as integer=1 to record.RecordCount
if record=null then exit for
region=CType(record.GetGeometry(),SuperMapLib.soGeoRegion)
result=analyst.CutFill(CType(raster,SuperMapLib.soDataset),region,CType(record.GetFieldValue("elev"),double))
strFill=result.FillVolume.ToString()
strCut=result.CutVolume.ToString()
this.lstViewAttribute.Items.Add("CODE "+record.GetFieldValue("code").ToString())
this.lstViewAttribute.Items(i-1).SubItems.Add(strFill)
this.lstViewAttribute.Items(i-1).SubItems.Add(strCut)
record.MoveNext()
next

[xiangboren]

兄弟我也碰到过类似问题，
但是我解决了，你去非常编程网看看，
网址：www.xiangboren.cn