读书人

读取MSHFlexGrid表格内单元格数据为空

发布时间: 2012-12-16 12:02:32 作者: rapoo

【求助】读取MSHFlexGrid表格内单元格数据为空
代码如下,将每行表格单元格数据读取到变量 结果读取数据都为空(""),请各位大侠解答小弟被郁闷很长时间了
求助! 求助! 求助! 求助! 求助!


MSHFlexGrid1.rows = 1
MSHFlexGrid1.rows = 2
MSHFlexGrid1.FixedRows = 1
MSHFlexGrid1.Redraw = False
MSHFlexGrid1.rows = RowCount + 2

For i = 2 To RowCount
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = C_1: ls_InvoiceCode = Trim(CStr(MSHFlexGrid1.Text)) & vbNullString '' 发票号
MSHFlexGrid1.Col = C_2: ls_vinNo = Trim(MSHFlexGrid1.Text) & vbNullString '' 车架号
MSHFlexGrid1.Col = C_3: ls_dealerName = Trim(MSHFlexGrid1.Text) & vbNullString '' 销售店名称
MSHFlexGrid1.Col = C_4: ls_CarName = Trim(MSHFlexGrid1.Text) & vbNullString '' 车名
MSHFlexGrid1.Col = C_5: ls_CarType = Trim(MSHFlexGrid1.Text) & vbNullString '' 车型

SqlStr = ""
SqlStr = "insert into T_ETD(vinno,Invoicecode,dealername,carname,cartype)"
SqlStr = SqlStr & " " & "value('" & (ls_vinNo) & "','" & (ls_InvoiceCode) & "','" & (ls_dealerName) & "','" & (ls_CarName) & "','" & (ls_CarType) & "')"
SqlStr = Trim(SqlStr)

Next

[最优解释]
某一个单元格的内容可以这样读取:
MSHFlexGrid1.TextMatrix(intRow,intCol)来读取
[其他解释]

with MSHFlexgrid1
For i = 2 To RowCount
ls_InvoiceCode=trim(.textmatrix(i,1))
ls_vinNo=trim(.textmatrix(i,2))
ls_dealerName = trim(.textmatrix(i,3))
ls_CarName = trim(.textmatrix(i,4))
ls_CarType = trim(.textmatrix(i,5))
SqlStr = "insert into T_ETD(vinno,Invoicecode,dealername,carname,cartype)"
SqlStr = SqlStr & " " & "value('" & (ls_vinNo) & "','" & (ls_InvoiceCode) & "','" & (ls_dealerName) & "','" & (ls_CarName) & "','" & (ls_CarType) & "')"
SqlStr = Trim(SqlStr)

Next i
end with


读书人网 >VB

热点推荐