如圖人，如何將選擇好的4個資料匯入到下面的datagrid控制元件中，（還有一些列的資料是要自己輸的，所以選擇datagrid控制元件），而且當一行資料輸完后，可以自動匯入上面的4個資料到第二行，以此類推，匯入到第n行，直到點擊“保存”按鈕
uj5u.com熱心網友回復：
datagrid好像不行吧，因為是在線資料的，換別的GRID控制元件uj5u.com熱心網友回復：
譬如哪種grid控制元件uj5u.com熱心網友回復：
Col、Row 屬性示例這個例子將“Here”放到當前單元中，然后把活動單元改變成第三行中的第三個單元，并且把“There”放到那個單元中。要嘗試這個例子，請使用“部件”對話框對工具框添加一個 MS Flex Grid 控制元件（在“工程”選單中，選擇“部件”，然后選定 Microsoft Flex Grid Control），然后在新表單中繪制一個網格。要運行該程式，請按 F5 鍵，然后再單擊該網格。
Private Sub Form_Load ()
MSFlexGrid1.Rows = 8 ' 設定行數和列數。
MSFlexGrid1.Cols = 5
End Sub
Private Sub MSFlexGrid1_Click ()
' 將文本放到當前單元中。
MSFlexGrid1.Text = "Here"
'將文本放到第三行，第三列。
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 2
MSFlexGrid1.Text = "There"
End Sub
下一個例子顯示出活動單元的位置以及當用戶選定一個單元或單元范圍時的選定范圍。注意，在選定一個范圍時，活動的單元并不改變。選定一個范圍，然后單擊表單使活動單元沿著選中范圍的周邊移動。注意，被選中的范圍并不改變。
要嘗試這個例子，請創建一個新工程，使用“部件”對話框（在“工程”選單中，選擇“部件”，然后檢查 Microsoft Flex Grid Control）添加一個 MS Flex Grid 控制元件，然后繪制一個 MS Flex Grid 和兩個標簽。 將代碼復制到宣告部分，然后按 F5 鍵運行這個程式。
Private Sub Form_Load ()
MSFlexGrid1.Cols = 6 ' 設定行數和列數。
MSFlexGrid1.Rows = 7
End Sub
Private Sub MSFlexGrid1_RowColChange ()
Msg = "Active Cell: " & Chr(64 + MSFlexGrid1.Col)
Mst = Msg & MSFlexGrid1.Row
Label1.Caption = Msg
End Sub
Private Sub MSFlexGrid1_SelChange ()
Msg = "Selection: " & Chr(64 + MSFlexGrid1.SelStartCol)
Msg = Msg & MSFlexGrid1.SelStartRow
Msg = Msg & ":" & Chr(64 + MSFlexGrid1.SelEndCol)
Msg = Msg & MSFlexGrid1.SelEndRow
Label2.Caption = Msg
End Sub
Private Sub Form_Click ()
' 每單擊一次表單，這一程序
' 就沿著選中
' 范圍的周邊移動活動單元。
Dim GR, GC As Integer
If MSFlexGrid1.Row = MSFlexGrid1.SelStartRow Then
If MSFlexGrid1.Col = MSFlexGrid1.SelEndCol Then
GR = 1: GC = 0
Else
GR = 0: GC = 1
End If
ElseIf MSFlexGrid1.Row = MSFlexGrid1.SelEndRow Then
If MSFlexGrid1.Col = MSFlexGrid1.SelStartCol Then
GR = -1: GC = 0
Else
GR = 0: GC = -1
End If
Else
If MSFlexGrid1.Col = MSFlexGrid1.SelStartCol Then
GR = -1: GC = 0
Else
GR = 1: GC = 0
End If
End If
MSFlexGrid1.Row = MSFlexGrid1.Row + GR
MSFlexGrid1.Col = MSFlexGrid1.Col + GC
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/75321.html
標籤：控件