以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何向函数传递当前行所有信息(C1FlexGrid)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172320)
--  作者：lanbor
--  发布时间：2021/10/8 13:58:00
--  如何向函数传递当前行所有信息(C1FlexGrid)
请教专家：
针对C1FlexGrid控件，如果要在命令按钮中调用TblBase_MouseDoubleClick 函数；
如果C1FlexGrid控件对应的表是名是：BOM99,

请问我在命令按钮里面应该如何向：TblBase_MouseDoubleClick 传参并调用它，
谢谢大师！
Dim drs As List(Of DataRow)
drs = DataTables("BOM99").Select("[state] = \'N\'")     \'行状态为 \'N\' 表示这一行需要被展开
For Each dr As DataRow In drs
    Functions.Execute("TblBase_MouseDoubleClick")     ‘这一行不知道如何写才能正确传参并调用它
Next
’----------以上是命令按钮的部分代码--------------


\'以下是函数名称:TblBase_MouseDoubleClick  的开头几行
Dim RowBase As C1FlexGrid.Row = TblBase.Rows(TblBase.RowSel) \'接收当前行所有字段
Dim Node As C1FlexGrid.Node
Dim dr_s As DataRow
Dim ParentPath As String = trim(RowBase("ITEM_CODE")) \'材料号 ,当用户点到某一行时,就传送某行的值
Dim ParentItem As String = trim(RowBase("ITEM_CODE")) \'材料号 ,当用户点到某一行时,就传送某行的值
Dim gp1 As String = RowBase("group1")                             \'所属组织机构(SYT/SY)
Dim ssn01 As String = RowBase("sn1")                               \'上层序号产品序号
--  作者：有点蓝
--  发布时间：2021/10/8 14:10:00
--  
\'以下是函数名称:TblBase_MouseDoubleClick  的开头几行
dim dr as datarow = args(0) ‘传入的DataRow
Dim RowBase As C1FlexGrid.Row = TblBase.Rows(TblBase.RowSel) \'接收当前行所有字段
Dim Node As C1FlexGrid.Node
……

……
For Each dr As DataRow In drs
    Functions.Execute("TblBase_MouseDoubleClick",dr) 
Next
’----------以上是命令按钮的部分代码--------------