关于datagrid数据控件的问题，捆饶很久了~~
vba中，选中datagrid中的一条记录，怎么把这条记录的每个字段分别属给象应的变量！！比如说，被选中的这条记录的第一个字段属给x1 第二个字段属给y1。。。。。。怎么做呢，请高手们帮帮忙，小弟在此谢过了。。。 <P>对datagrid控件不甚了解，紧紧知道能这样得到数据。</P><P>Private Sub Command1_Click()<BR> <BR> DataGrid1.Row = 1 '定位DataGrid1行<BR> DataGrid1.Col = 1 '定位DataGrid1列<BR> MsgBox DataGrid1.Text'取得1984<BR> <BR>End Sub</P>
<P>如果先选择行再得到数据就不知道了，得向高手请教了！不过多说一句，这个控件不是很好用，只能绑定数据库。不如MSFlexGrid控件顺手。。。。。。。</P> <P>这个问题我在VB中是利用了Listbox控件解决的，想必你对这个通用控件要熟悉的多吧。先把每个字段的值读到列表框里，然后，你就可以用它的属性list来取得数据拉</P>
<P>dim rs2 as recordset</P>
<P>Set rs2 = db.OpenRecordset("设计线数据") '表名<BR>Do While Not rs2.EOF<BR> frmwll.List3.additem rs2.Fields(1).Value<BR> frmwll.List4.additem rs2.Fields(2).Value<BR> frmwll.List5.additem rs2.Fields(3).Value<BR> frmwll.List15.additem rs2.Fields(4).Value<BR> frmwll.List16.additem rs2.Fields(5).Value<BR> frmwll.List17.additem rs2.Fields(6).Value<BR> frmwll.List18.additem rs2.Fields(7).Value<BR> rs2.MoveNext<BR>Loop<BR>rs2.Close</P>
<P>比如你取第一个字段的第三个值，则可用list3.list(2)取到。</P> <P>谢谢朋友们，我是这样解决的</P>
<P>Private Sub DataGrid1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As stdole.OLE_XPOS_PIXELS, ByVal Y As stdole.OLE_YPOS_PIXELS)</P>
<P>x1 = Val(DataGrid1.Columns.Item(1))</P>
<P>end sub </P>
<P>就是点选一行，当鼠标释放的时候，把里面每个字段属给一个变量，这些变量去全局变量，这样就可以在其它过程中用这些变量了，我不知道这样对不对，不过我在实验的过程中，都能把相应的值给取出来，然后属给一个变量，这样也能利用取出的值画图了~~</P>
<P>这样可以么？</P> 本帖最后由 作者 于 2006-8-11 11:50:19 编辑 <br /><br /> <P>这种很好用</P>
<P>Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)<BR>DataStr = DataGrid1.Text'获得鼠标点的数据</P>
<P>n=DataGrid1.Row'获得该数据行号</P>
<P>m=DataGrid1.col'获得该数据列号</P>
<P>End Sub</P>
页:
[1]