vb中如何将一部分数据选择好的数据导入到datagrid控件中

[zhy572469967]

如图人，如何将选择好的4个数据导入到下面的datagrid控件中，（还有一些列的数据是要自己输的，所以选择datagrid控件），而且当一行数据输完后，可以自动导入上面的4个数据到第二行，以此类推，导入到第n行，直到点击“保存”按钮

[程序员老干部]

datagrid好像不行吧，因为是在线数据的，换别的GRID控件

[zhy572469967]

譬如哪种grid控件

[赵4老师]

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