VB 行号无效如何解决

VB 行号无效怎么解决

VB code

DataGrid1.Row = 0      i = 1    For i = 0 To Adodc1.Recordset.RecordCount - 1        Cnn.Execute "insert into 入库信息表([客户],[库号],[电话],[日期],[品种],[级别],[规格],[包装],[重量],[入库数量],[入库总重] ,[代办],[司机],[备注]) values ('" & DataGrid1.Columns(0).Text & "','" & DataGrid1.Columns(1).Text & "','" & DataGrid1.Columns(2).Text & "','" & DataGrid1.Columns(3).Text & "','" & DataGrid1.Columns(4).Text & "','" & DataGrid1.Columns(5).Text & "','" & DataGrid1.Columns(6).Text & "','" & DataGrid1.Columns(7).Text & "','" & DataGrid1.Columns(8).Text & "','" & DataGrid1.Columns(9).Text & "','" & DataGrid1.Columns(10).Text & "','" & DataGrid1.Columns(11).Text & "','" & DataGrid1.Columns(12).Text & "','" & DataGrid1.Columns(13).Text & "')"        DataGrid1.Row = DataGrid1.Row + 1    Next

DataGrid1.Row = DataGrid1.Row + 1 ’提示行号无效
请大家帮要怎么解决，感谢！


[解决办法]
DataGrid1.Rows = DataGrid1.Rows + 1

查看更多 下一篇