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