急啊，ＶＢ的小问题

Question

两个Grid,双击上面一个Grid１的一条纪录。会上另一个Grid2中显示，反之，也一样！

Answer 1

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
在此事件中写针对grid2的语句
End Sub

Answer 2

我想要的效果就是，grid1内容调入grid2, 万一调错了，从grid2中双击又调加grid1中，
我现在的代码实现是grid1中的全部都调到grid2中，不能一条一条记录调入！所以请高手帮忙！

Answer 3

dim i as integer
xx = czzsgrid.row
for i = 0 to xx
'添加..............
next楼上能否给个循环调入的代码？

Answer 4

Public rst1 As New ADODB.Recordset
Public rst2 As New ADODB.Recordset
rst1.CursorLocation = adUseClient
rst2.CursorLocation = adUseClient
rst1.Open "SELECT * FROM youtable", cnn, adOpenStatic, adLockBatchOptimistic, adCmdText
rst2.Open "SELECT * FROM youtable", cnn, adOpenStatic, adLockBatchOptimistic, adCmdText
Set DataGrid1.DataSource = rst1
Set DataGrid2.DataSource = rst2
rst2.Filter = "youtable判断字段=" & "'显示'"
Private Sub DataGrid1_DblClick()
  rst1!youtable判断字段="显示"
  rst1..Update 
  Set DataGrid2.DataSource = rst2
End Sub
Private Sub DataGrid2_DblClick()
  rst2!youtable判断字段="不显示"(只要不是"显示")
  rst2.Update 
  Set DataGrid2.DataSource = rst2
End Sub

Answer 5

如果已经绑定：
Private Sub DataGrid1_Click()
  Set DataGrid2.DataSource = DataGrid1.DataSource 
End Sub

Answer 6

要两边互动,后面改为
rst1.Filter = "youtable判断字段=" & "'rst1显示'"
rst2.Filter = "youtable判断字段=" & "'rst2显示'"
Private Sub DataGrid1_DblClick()
  rst1!youtable判断字段="rst2显示"
  rst1.Update 
  rst1.Filter = "youtable判断字段=" & "'rst1显示'"
  rst2.Filter = "youtable判断字段=" & "'rst2显示'"
End Sub
Private Sub DataGrid2_DblClick()
  rst2!youtable判断字段="'rst1显示"
  rst2.Update 
  rst1.Filter = "youtable判断字段=" & "'rst1显示'"
  rst2.Filter = "youtable判断字段=" & "'rst2显示'"End Sub

Answer 7

to : of123() 
用我Vsflexgrid这个控件，这种表达不行！
请指教！

Answer 8

你把关联写出来吧.很简单的,在Rowchange事件里写代码就可以了.

Answer 9

我是用双击实现效果的，你在RowChange事件中要怎么写，并且我grid1和grid2中标题是一模一样的，只是内容要从grid1选择，如
网格1：
货物编码　　货物名称　　货物数量　　..........
001　　　　　？？？　　　100
002　　　　　？？？　　　120
003　　　　　？？？　　　200如果要用车辆来运输，那么车辆的载重只有220　那么我就要分别双击001和002到grid2中。

Answer 10

还有我用的是VsflexGrid这个控件！

Answer 11

我的程序全用这个控件.
你的功能其它的表格控件都可以实现,不用强调是Vsflexgrid.
呵呵,你是要在Grid2中添行啊?很简单嘛,很多方法都可以实现啊.
就在双击事件里写好了.
肯定有编号的吧?有编号就到数据库里去查,然后查到就往Grid里添啊.和一般的查询没有区别.
Additem加一行.

Answer 12

Private Sub DfGrid_DblClick()                                              '用户双击网格向下调入     Dim jsqte As Integer
    
     ScGrid.Clear 1     For jsqte = 1 To DfGrid.Rows - DfGrid.FixedRows     ScGrid.AddItem ""     ScGrid.TextMatrix(jsqte, Sydz("001", GridStr2(), Szzls2)) = DfGrid.TextMatrix(jsqte, Sydz("001", GridStr1(), Szzls1))
     ScGrid.TextMatrix(jsqte, Sydz("002", GridStr2(), Szzls2)) = DfGrid.TextMatrix(jsqte, Sydz("002", GridStr1(), Szzls1))
     ScGrid.TextMatrix(jsqte, Sydz("003", GridStr2(), Szzls2)) = DfGrid.TextMatrix(jsqte, Sydz("003", GridStr1(), Szzls1))
     ScGrid.TextMatrix(jsqte, Sydz("004", GridStr2(), Szzls2)) = DfGrid.TextMatrix(jsqte, Sydz("004", GridStr1(), Szzls1))
     ScGrid.TextMatrix(jsqte, Sydz("005", GridStr2(), Szzls2)) = DfGrid.TextMatrix(jsqte, Sydz("005", GridStr1(), Szzls1))
     ScGrid.TextMatrix(jsqte, Sydz("006", GridStr2(), Szzls2)) = DfGrid.TextMatrix(jsqte, Sydz("006", GridStr1(), Szzls1))
     ScGrid.TextMatrix(jsqte, Sydz("007", GridStr2(), Szzls2)) = DfGrid.TextMatrix(jsqte, Sydz("007", GridStr1(), Szzls1))
     ScGrid.TextMatrix(jsqte, Sydz("008", GridStr2(), Szzls2)) = DfGrid.TextMatrix(jsqte, Sydz("008", GridStr1(), Szzls1))
'    ScGrid.TextMatrix(jsqte, Sydz("009", GridStr1(), Szzls1)) = DfGrid.TextMatrix(jsqte, Sydz("009", GridStr1(), Szzls1)) Next
  End Sub我这个在数据库里没有编号。

Answer 13

以上的代码的功能是双击以后，全部都调到ScGrid中，可是那个for的语句，要怎么改？我想不出来？让它能一行一行的往一下调！啥办？求助中................

Answer 14

For jsqte = 1 To DfGrid.Rows - DfGrid.FixedRows应该是列数的循环吧?把你的需求说的详细一些.应该是很简单的问题,是不是你想复杂了?

Answer 15

Ｔｏ：楼上！
有一个网格DfGrid是从一数据库里面调出来的信息啊！如：
网格1：
货物编码　　货物名称　　货物数量　　..........
001　　　　　？？？　　　100
002　　　　　？？？　　　120
003　　　　　？？？　　　200如果要用车辆来运输，如果车辆的载重只有220　那么我就要分别双击001和002到Scgrid中.

Answer 16

写一下示例代码吧.
Private Sub DfGrid_DblClick()
  with dfGrid
   if .row>1 and .row<.rows then
    dim i as integer
    dim tmp() as string
    for i=1 to .columns
      redim preserve tmp(i)
      tmp(i-1)=.textmatrix(.row,i)
    next
   end if
  end with
  '剩下的代码是在往另个表格里添的
end sub现在把当前行的数据提出来放在数组里了.然后你看着办吧.

Answer 17

tmp(i-1)=.textmatrix(.row,i)-----------error  message--------------invalid property array index!

Answer 18

两个Grid,双击上面一个Grid1一条纪录。会上另一个Grid2中显示.例如：网格1：
货物编码　　货物名称　　货物数量　　..........
001　　　　　？？？　　　100
002　　　　　？？？　　　120
003　　　　　？？？　　　200如果要用车辆来运输，那么车辆的载重只有220　那么我就要分别双击001和002到grid2中
网格2：
货物编码　　货物名称　　货物数量　　..........
001　　　　　？？？　　　100
002　　　　　？？？　　　120如果网格2的内容错误，双击网格2就回把这条记录回Grid1，进行重新选择！记住：Grid1中的记录是没有编码，是符合条件就显示出来！