代码如下,将每行表格单元格数据读取到变量 结果读取数据都为空(""),请各位大侠解答小弟被郁闷很长时间了
求助!     求助!     求助!    求助!    求助!  
MSHFlexGrid1.rows = 1
MSHFlexGrid1.rows = 2
MSHFlexGrid1.FixedRows = 1
MSHFlexGrid1.Redraw = False
MSHFlexGrid1.rows = RowCount + 2For 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

解决方案 »

  1.   

    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
      

  2.   

    某一个单元格的内容可以这样读取:
    MSHFlexGrid1.TextMatrix(intRow,intCol)来读取