急啊，ＶＢ的小问题

[cosio]

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

[of123]

你用的是哪一种网格控件？

[bjbs_vb]

要两边互动,后面改为
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

[cosio]

用的Vsflexgrid这个控件！

[cosio]

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

[wumylove1234]

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

[cosio]

我是用双击实现效果的，你在RowChange事件中要怎么写，并且我grid1和grid2中标题是一模一样的，只是内容要从grid1选择，如
网格1：
货物编码　　货物名称　　货物数量　　..........
001　　　　　？？？　　　100
002　　　　　？？？　　　120
003　　　　　？？？　　　200

如果要用车辆来运输，那么车辆的载重只有220　那么我就要分别双击001和002到grid2中。

[cosio]

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

[cosio]

自己顶！因为问题迫在眉睫！所以请各位帮忙了！

[cosio]

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

我这个在数据库里没有编号。

[cosio]

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

[cosio]

怎么没有人帮我呢？郁闷？

[wumylove1234]

For jsqte = 1 To DfGrid.Rows - DfGrid.FixedRows

应该是列数的循环吧?

把你的需求说的详细一些.应该是很简单的问题,是不是你想复杂了?

[xiaozx]

关注！

[cosio]

Ｔｏ：楼上！
有一个网格DfGrid是从一数据库里面调出来的信息啊！如：
网格1：
货物编码　　货物名称　　货物数量　　..........
001　　　　　？？？　　　100
002　　　　　？？？　　　120
003　　　　　？？？　　　200

如果要用车辆来运输，如果车辆的载重只有220　那么我就要分别双击001和002到Scgrid中.

[wumylove1234]

我的程序全用这个控件.
你的功能其它的表格控件都可以实现,不用强调是Vsflexgrid.
呵呵,你是要在Grid2中添行啊?

很简单嘛,很多方法都可以实现啊.
就在双击事件里写好了.
肯定有编号的吧?有编号就到数据库里去查,然后查到就往Grid里添啊.和一般的查询没有区别.
Additem加一行.

[cosio]

up

[wumylove1234]

晕死.还没有把需求说明白,说来说出去也不知道你这两上表格到底要如何显示数据.

[wumylove1234]

写一下示例代码吧.
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

现在把当前行的数据提出来放在数组里了.然后你看着办吧.

[cosio]

tmp(i-1)=.textmatrix(.row,i)

-----------error message--------------

invalid property array index!

[cosio]

两个Grid,双击上面一个Grid1一条纪录。会上另一个Grid2中显示.例如：

网格1：
货物编码　　货物名称　　货物数量　　..........
001　　　　　？？？　　　100
002　　　　　？？？　　　120
003　　　　　？？？　　　200

如果要用车辆来运输，那么车辆的载重只有220　那么我就要分别双击001和002到grid2中
网格2：
货物编码　　货物名称　　货物数量　　..........
001　　　　　？？？　　　100
002　　　　　？？？　　　120

如果网格2的内容错误，双击网格2就回把这条记录回Grid1，进行重新选择！

记住：Grid1中的记录是没有编码，是符合条件就显示出来！