以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段代码怎么改才能 只复制当前行的数据，而不是整个表的数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31161)
--  作者：jinzhengbe
--  发布时间：2013/4/11 9:28:00
--  这段代码怎么改才能 只复制当前行的数据，而不是整个表的数据
Dim Cols1() As String = {"取货id","取货商品名","客户名","已取数量","备注"}
Dim Cols2() As String = {"取货id","商品名称","客户名","件数","备注"}
For Each dr1 As DataRow In DataTables("quhuolu").Select("[取货id] Is not Null")
    Dim dr2 As DataRow = DataTables("发货详单").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
End If
--  作者：Bin
--  发布时间：2013/4/11 9:31:00
--  
当前行？ 选中行吗？
Dim Cols1() As String = {"取货id","取货商品名","客户名","已取数量","备注"}
Dim Cols2() As String = {"取货id","商品名称","客户名","件数","备注"}
dim dr1 As DataRow = DataTables("quhuolu").Current
    Dim dr2 As DataRow = DataTables("发货详单").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next

End If
--  作者：jinzhengbe
--  发布时间：2013/4/11 9:47:00
--  非常感谢！！ 顺便隐藏当前行该怎么写呢？
非常感谢！！ 顺便隐藏当前行该怎么写呢？
--  作者：XYT
--  发布时间：2013/4/11 9:53:00
--  
 

Tables("订单").Current.Visible = False
--  作者：jinzhengbe
--  发布时间：2013/4/11 9:54:00
--  不是当前行，是选中行，谢谢！
不是当前行，是选中行，谢谢！
--  作者：Bin
--  发布时间：2013/4/11 9:55:00
--  
Syscmd.Row.HideSelectedRows()
--  作者：jinzhengbe
--  发布时间：2013/4/11 9:59:00
--  我说的是这个地方该用什么单词呢？谢谢

dim dr1 As DataRow = DataTables("quhuolu").Current我说的是这个地方选中  当前行 该用什么单词呢？谢谢

大侠也是狐表公司的？

[此贴子已经被作者于2013-4-11 9:59:40编辑过]
--  作者：Bin
--  发布时间：2013/4/11 10:02:00
--  
Syscmd.Row.HideSelectedRows()就是隐藏当前行的啊.
--  作者：jinzhengbe
--  发布时间：2013/4/11 10:06:00
--  不是隐藏，我说的是这段代码中的当前行
Dim Cols1() As String = {"取货id","取货商品名","客户名","已取数量","备注"}
Dim Cols2() As String = {"取货id","商品名称","客户名","件数","备注"}
dim dr1 As DataRow = DataTables("quhuolu").Current这个地方我想要的是被选中的行，而不是当前行。非常感谢啊！
Dim dr2 As DataRow = DataTables("发货详单").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next

End If
--  作者：Bin
--  发布时间：2013/4/11 10:07:00
--  
你把该代码放在这句话的下面.没有正常运作吗?