如何在列表視圖中垂直移位數據

我是VB6的初學者。我現在的項目是解析一個原始數據，只獲取需要的數據並保存爲CSV文件。我已經可以解析raw和在列表視圖中查看我的問題是數據將在列表視圖中水平輸入，當我在CSV文件中查看它時，它與listview相同。如何在列表視圖中垂直移位數據

我現在的問題是我怎麼能把數據放在列表視圖vertically而我解析數據？

下面

在列表視圖輸出解析數據

enter image description here

這是我的代碼來將數據放在列表視圖

If cmd_req_flow <> "" And cmd_req_flow_a <> "" Then 
           txt_date = cmd_date_time_a 
           txt_parsereq = cmd_totalparsedreq_a - cmd_totalparsedreq 
           txt_flowtotal = cmd_flow_total_a 
           txt_reqflow = cmd_req_flow_a 
           txt_aia = cmd_aia_a - cmd_aia 
           txt_air = cmd_air_a - cmd_air 
           txt_cer = cmd_cer_a - cmd_cer 
           txt_cla = cmd_cla_a - cmd_cla 
           txt_clr = cmd_clr_a - cmd_clr 
           txt_dsa = cmd_dsa_a - cmd_dsa 
           txt_dsr = cmd_dsr_a - cmd_dsr 
           txt_dwa = cmd_dwa_a - cmd_dwa 
           txt_dwr = cmd_dwr_a - cmd_dwr 
           txt_ida = cmd_ida_a - cmd_ida 
           txt_idr = cmd_idr_a - cmd_idr 
           txt_noa = cmd_noa_a - cmd_noa 
           txt_nor = cmd_nor_a - cmd_nor 
           txt_pua = cmd_pua_a - cmd_pua 
           txt_pur = cmd_pur_a - cmd_pur 
           txt_rsa = cmd_rsa_a - cmd_rsa 
           txt_rsr = cmd_rsr_a - cmd_rsr 
           txt_ula = cmd_ula_a - cmd_ula 
           txt_ulr = cmd_ulr_a - cmd_ulr 

            Set itmX = ListView1.ListItems.Add(, , txt_date) 
               itmX.SubItems(1) = txt_parsereq 
               itmX.SubItems(2) = txt_flowtotal 
               itmX.SubItems(3) = txt_reqflow 
               itmX.SubItems(4) = txt_aia 
               itmX.SubItems(5) = txt_air 
               itmX.SubItems(6) = txt_cer 
               itmX.SubItems(7) = txt_cla 
               itmX.SubItems(8) = txt_clr 
               itmX.SubItems(9) = txt_dsa 
               itmX.SubItems(10) = txt_dsr 
               itmX.SubItems(11) = txt_dwa 
               itmX.SubItems(12) = txt_dwr 
               itmX.SubItems(13) = txt_ida 
               itmX.SubItems(14) = txt_idr 
               itmX.SubItems(15) = txt_noa 
               itmX.SubItems(16) = txt_nor 
               itmX.SubItems(17) = txt_pua 
               itmX.SubItems(18) = txt_pur 
               itmX.SubItems(19) = txt_rsa 
               itmX.SubItems(20) = txt_rsr 
               itmX.SubItems(21) = txt_ula 
               itmX.SubItems(22) = txt_ulr 
             Call clear_fourth 
             Call clear_five 
             Call clear_first 

             Call clear_field_name 
             Call clear_value 
             txt_sec = 0 
             txt_t1 = "" 
             txt_t2 = "" 
             txt_st = "" 

               cmd_date_time = cmd_date_time_a 
               cmd_ulr = cmd_ulr_a 
               cmd_aia = cmd_aia_a 
               cmd_dsa = cmd_dsa_a 
               cmd_rsr = cmd_rsr_a 
               cmd_dsr = cmd_dsr_a 
               cmd_noa = cmd_noa_a 
               cmd_pur = cmd_pur_a 
               cmd_dwa = cmd_dwa_a 
               cmd_clr = cmd_clr_a 
               cmd_cla = cmd_cla_a 
               cmd_nor = cmd_nor_a 
               cmd_pua = cmd_pua_a 
               cmd_totalparsedreq = cmd_totalparsedreq_a 
               cmd_rsa = cmd_rsa_a 
               cmd_air = cmd_air_a 
               cmd_ida = cmd_ida_a 
               cmd_ula = cmd_ula_a 
               cmd_cer = cmd_cer_a 
               cmd_flow_total = cmd_flow_total_a 
               cmd_idr = cmd_idr_a 
               cmd_dwr = cmd_dwr_a 
               cmd_req_flow = cmd_req_flow_a 
             Call clear_second 
          End If

來源

2014-03-26 user3391894

請參閱上面的代碼。 – user3391894

我需要垂直不水平獲取數據。 – user3391894

爲什麼不使用像flexgrid控件一樣的網格控件？它可以更容易地解決特定的單元格和循環通過單元格每列或每行 – Hrqls

添加一個MSFlexGrid控件到窗體首先必須經過添加您可以在菜單中執行的組件。

在項目上組件，並在那裏菜單中點擊檢查微軟FlexGrid控件

然後看看下面的測試項目：

'1 form with: 
' MSFlexGrid: name=MSFlexGrid1 
' Command button: name=Command1 
Option Explicit 

Private Sub Command1_Click() 
    Static lngMode As Long 
    'process the right modes 
    Select Case lngMode 
    Case 0 
     FillHorizontal 
    Case 1 
     FillVertical 
    Case 2 
     FillData 
    End Select 
    'set next mode 
    lngMode = (lngMode + 1) Mod 3 
End Sub 

Private Sub Form_Load() 
    With MSFlexGrid1 
    .FixedRows = 0 
    .FixedCols = 0 
    .Rows = 7 
    .Cols = 12 
    End With 'MSFlexGrid1 
End Sub 

Private Sub Form_Resize() 
    Dim sngWidth As Single, sngHeight As Single 
    Dim sngCmdHeight As Single, sngGrdHeight As Single 
    sngWidth = ScaleWidth 
    sngHeight = ScaleHeight 
    sngCmdHeight = 495 
    sngGrdHeight = sngHeight - sngCmdHeight 
    MSFlexGrid1.Move 0, 0, sngWidth, sngGrdHeight 
    Command1.Move 0, sngGrdHeight, sngWidth, sngCmdHeight 
End Sub 

Private Sub FillHorizontal() 
    Dim lngRow As Long, lngCol As Long 
    With MSFlexGrid1 
    For lngCol = 0 To .Cols - 1 
     For lngRow = 0 To .Rows - 1 
     .TextMatrix(lngRow, lngCol) = CStr(lngRow * .Cols + lngCol) 
     Next lngRow 
    Next lngCol 
    End With 'MSFlexGrid1 
End Sub 

Private Sub FillVertical() 
    Dim lngRow As Long, lngCol As Long 
    With MSFlexGrid1 
    For lngCol = 0 To .Cols - 1 
     For lngRow = 0 To .Rows - 1 
     .TextMatrix(lngRow, lngCol) = CStr(lngCol * .Rows + lngRow) 
     Next lngRow 
    Next lngCol 
    End With 'MSFlexGrid1 
End Sub 

Private Sub FillData() 
    With MSFlexGrid1 
    .Clear 
    .TextMatrix(0, 0) = "Food" 
    .TextMatrix(0, 1) = "Drinks" 
    .TextMatrix(1, 0) = "Cake" 
    .TextMatrix(1, 1) = "Water" 
    .TextMatrix(2, 0) = "Cup cake" 
    .TextMatrix(2, 1) = "Soft drinks" 
    .TextMatrix(3, 0) = "Spaghetti" 
    .TextMatrix(3, 1) = "Orange juice" 
    .TextMatrix(4, 0) = "Canton" 
    .TextMatrix(4, 1) = "Coffee" 
    .TextMatrix(5, 0) = "Abodo" 
    .TextMatrix(5, 1) = "Tea" 
    End With 'MSFlexGrid1 
End Sub

當你點擊按鈕時，它將首先水平填充網格，當您再次單擊該按鈕時，它將垂直填充網格，並且當您再次單擊該按鈕時，它將填充網格中的一些數據

注意使用lngRow和lngCol以及它如何影響垂直填充的水平

來源

2014-03-31 12:38:49 Hrqls

它的工作謝謝你。 – user3391894

MSFlexgrid的問題是它無法處理大量的數據。 – bebebe

如何在列表視圖中垂直移位數據

回答

相關問題