Foxtable(狐表)用户栏目专家坐堂 → 如何向函数传递当前行所有信息(C1FlexGrid)


  共有2843人关注过本帖树形打印复制链接

主题:如何向函数传递当前行所有信息(C1FlexGrid)

帅哥哟,离线,有人找我吗?
lanbor
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:433 积分:4351 威望:0 精华:0 注册:2017/3/20 21:08:00
如何向函数传递当前行所有信息(C1FlexGrid)  发帖心情 Post By:2021/10/8 13:58:00 [只看该作者]

请教专家:
针对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")                               '上层序号产品序号

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107812 积分:548411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
’----------以上是命令按钮的部分代码--------------

 回到顶部