求助VB间函数如何调用
Sub button1_Click()
Dim newrows As Integer
Dim i As Integer
...........................
...........................
insertTableValue(newrows, i
//这行一直报错，请问这里如何调用下面的inserTableValue(newrows,i)函数，小弟一直写java程序的，在这里请教大家了。
)
.........................
........................
MsgBox ("从外部资源导入基础产品库成功!")
End Sub
Private Function insertTableValue(newrows, i)
newsheet.Cells(newrows, 1).Value = sheet1.Cells(i, 1).Value
newsheet.Cells(newrows, 2).Value = sheet1.Cells(i, 2).Value
newsheet.Cells(newrows, 3).Value = sheet1.Cells(i, 3).Value
newsheet.Cells(newrows, 4).Value = sheet1.Cells(i, 4).Value
newsheet.Cells(newrows, 5).Value = sheet1.Cells(i, 5).Value
newsheet.Cells(newrows, 6).Value = sheet1.Cells(i, 6).Value
newsheet.Cells(newrows, 7).Value = sheet1.Cells(i, 8).Value
newsheet.Cells(newrows, 8).Value = sheet1.Cells(i, 10).Value
newsheet.Cells(newrows, 9).Value = sheet1.Cells(i, 12).Value
newsheet.Cells(newrows, 10).Value = sheet1.Cells(i, 16).Value
newsheet.Cells(newrows, 11).Value = sheet1.Cells(i, 17).Value
End Function
[解决办法]
在vb6以下,因为insertTableValue(newrows, i)是function,调用应有返回值，如果不需要返回值，前面加Call,即改成“call insertTableValue(newrows, i)”；
在vb.net之中，你上面的写法不会出错。
[解决办法]
Private Function insertTableValue(newrows, i)
改成
Private SubinsertTableValue(newrows, i)
看看呢
