【连续窗体】通过行与列得到值

hi，大家中午好呀！

 

手机边亲爱的你好吗？我是不光要你新年快乐，还要快乐一整年的edon，大家2021快乐！

 

今天，我给大家分享一个连续窗体的示例，示例如下：

 

 

没错，就是输入行与列知道选中的值是什么。接下去，我们来看一下怎么来实现这个功能。

 

PART.

01创建窗体

 

 

首先，我们先创建如下图那样的窗体，注意，要有一个连续窗体的子窗体，放上几个文本框，一个用来输入列，一个用来输入行，一个用来显示值。

 

 

连续容要注意，文本框的名称要修改成Column0，Column1，Column2，Column3……以此类推，往下修改。

PART.

02 添加代码

 

 

这次，我们先要创建一个通用模块，然后添加对应的函数

 

Public Function GetColRowData(frm As Object, Column As Long, Row As Long) As Variant
    On Error GoTo ErrorCode

    Dim rst As Recordset
    Dim vControl As String


    vControl = frm.Form("Column" & Column).ControlSource   'fetch name of selected field
    Set rst = frm.Form.RecordsetClone
    rst.AbsolutePosition = Row
    GetColRowData = rst(vControl)
    rst.Close
    Set rst = Nothing
    Exit Function
ExitHere:
    Exit Function

ErrorCode:
    MsgBox Err.Description, vbCritical
    Resume ExitHere

End Function

 

接上去添加一下按钮的单击事件

 

Private Sub Command5_Click()
    Me.Text6 = GetColRowData(Me.frmProduct_List, Me.Col, Me.Row)
End Sub

 

PART.

03运行测试

 

 

 

最后，我们就是来测试功能了，如果有错误，那我们需求调整对应的代码。

注意，列与行都是从0开始的，比如输入（2，1），那就是第3列，第2行。

 

好的，大家快去试一下吧。