[求助]全局代码求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口中动态添加的recordgrid控件，想给该recordgrid控件添加事件代码，当点击控件中每行，获取改行的标题，通过标题筛选相应的正常值及临床意义填入相应的textbox控件中。

全局代码怎么弄呀？谢谢！

此主题相关图片如下：360反馈意见截图182805125782112.png

[此贴子已经被作者于2016/12/30 8:59:44编辑过]

这是我在窗口的全局事件中的代码：

Dim s1() As String

Dim t,s2 As String

Dim dt As Table = Tables("临床资料登记_table1")

If dt.Current IsNot Nothing Then

t=dt.Current("信息编号")

s1= t.Split("-")

s2 = s1(2)

If s2 Like "05*" Then

For Each c As WinForm.Control In e.Form.Controls

If Typeof c Is winform.recordgrid Then

Dim g As WinForm.RecordGrid=c

Dim bctr = g.baseControl

For Each r As object In bctr.Rows

For Each r1 As Row In Tables("实验室检查维护").Rows

If r.caption = r1("检验项目") Then

Forms("临床资料登记").controls("TextBox2").value=r1("正常值")

MessageBox.show(r1("正常值"))

forms("临床资料登记").controls("TextBox3").value=r1("临床意义")

End If

' msgbox(r.caption)

' msgbox(r(1))

End If

需要用全局代码换掉：

For Each r As object In bctr.Rows

For Each r1 As Row In Tables("实验室检查维护").Rows

If r.caption = r1("检验项目") Then

Forms("临床资料登记").controls("TextBox2").value=r1("正常值")

MessageBox.show(r1("正常值"))

forms("临床资料登记").controls("TextBox3").value=r1("临床意义")

End If

' msgbox(r.caption)

' msgbox(r(1))

[此贴子已经被作者于2016/12/30 9:10:28编辑过]

如果全局代码是这样：

Public Sub recordgrid_RowColChange (sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs)

End Sub

sender传的是什么？ e传的是什么？

直接获取值，不就好了？

Dim grid = 你绑定事件的sender参数

dim r as integer = grid.Selection.r1
dim c as integer = grid.selection.c1
msgbox(grid(r,c).tostring)
msgbox(grid(r,1).tostring)

在recordgrid控件，我想取第1列第3个的值，代码怎么弄？

Dim g As WinForm.RecordGrid=c

Dim g1 As C1.Win.C1FlexGrid.C1FlexGridBase = g.baseControl

addhandler g1.MouseEnterCell, addressof MouseEnterCellHandler

addhandler g1.click, addressof clickhandler

t1=g1.cols(ra).caption

ra是行数

msgbox(g1(行数,列数).tostring)

主题：[求助]全局代码求助