首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-12-16 
【求助】读取MSHFlexGrid表格内单元格数据为空代码如下,将每行表格单元格数据读取到变量 结果读取数据都为空

【求助】读取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


热点排行