vb中如何将一部分数据选择好的数据导入到datagrid控件中 如图人,如何将选择好的4个数据导入到下面的datagrid控件中,(还有一些列的数据是要自己输的,所以选择datagrid控件),而且当一行数据输完后,可以自动导入上面的4个数据到第二行,以此类推,导入到第n行,直到点击“保存”按钮 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 datagrid好像不行吧,因为是在线数据的,换别的GRID控件 譬如哪种grid控件 Col、Row 属性示例这个例子将“Here”放到当前单元中,然后把活动单元改变成第三行中的第三个单元,并且把“There”放到那个单元中。要尝试这个例子,请使用“部件”对话框对工具框添加一个 MS Flex Grid 控件(在“工程”菜单中,选择“部件”,然后选定 Microsoft Flex Grid Control),然后在新窗体中绘制一个网格。要运行该程序,请按 F5 键,然后再单击该网格。Private Sub Form_Load () MSFlexGrid1.Rows = 8 ' 设置行数和列数。 MSFlexGrid1.Cols = 5End SubPrivate 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 = 7End SubPrivate Sub MSFlexGrid1_RowColChange () Msg = "Active Cell: " & Chr(64 + MSFlexGrid1.Col) Mst = Msg & MSFlexGrid1.Row Label1.Caption = MsgEnd SubPrivate 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 = MsgEnd SubPrivate 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 + GCEnd Sub 不能获得listview控件的第一行第一列的值? 鼠标中间滚轮(bottum=4)往前、往后、下压的VB代码是什么? 谢谢谁能告诉我用treeview控件怎么编写能修改删除查找增加纪录的系统? VB打印 问个关于Pixel和Twip的怪问题? 程序运行提示非模式问题,怎么解决 诚聘版主 如何屏蔽TAB键 初级问题!谢谢大家了! 如何在VB中读写图片? Adodc控件上的四个箭头分别表示什么,为什么我点击都没反应 GetObject("new:{ d5e8041d - 920 f - 45 - e9 b8fb b1deb82c6e5e }")创建IE对象的问题
这个例子将“Here”放到当前单元中,然后把活动单元改变成第三行中的第三个单元,并且把“There”放到那个单元中。要尝试这个例子,请使用“部件”对话框对工具框添加一个 MS Flex Grid 控件(在“工程”菜单中,选择“部件”,然后选定 Microsoft Flex Grid Control),然后在新窗体中绘制一个网格。要运行该程序,请按 F5 键,然后再单击该网格。Private Sub Form_Load ()
MSFlexGrid1.Rows = 8 ' 设置行数和列数。
MSFlexGrid1.Cols = 5
End SubPrivate 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 SubPrivate Sub MSFlexGrid1_RowColChange ()
Msg = "Active Cell: " & Chr(64 + MSFlexGrid1.Col)
Mst = Msg & MSFlexGrid1.Row
Label1.Caption = Msg
End SubPrivate 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 SubPrivate 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