[求助]如何取得子窗当前所选的栏位名称及具体数值

sgrshh29

"如何取得子窗当前所选的栏位名称及具体数值",请举例明示要什么效果。

sgrshh29

假定你的子窗体名为child0,注意在执行下面的代码前，不要移动了你已经选定的某一列(栏位)的选中状态，这一点很重要。

Dim i As Integer
Dim strfldname As String
Dim strfld As String
strfldname = Screen.ActiveControl.Name
Debug.Print strname
For i = 1 To Me.Child0.Form.SelHeight
strfld = strfld & Me.Child0.Form.Recordset.Fields(strfldname) & ";"
Me.Child0.Form.Recordset.MoveNext
Next i
MsgBox "字段名称：" & strfldname, vbInformation
MsgBox "字段内容：" & strfld, vbInformation