Office中国论坛/Access中国论坛

标题: [求助]如何取得子窗当前所选的栏位名称及具体数值 [打印本页]

作者: lanchong 时间: 2007-5-10 23:16
标题: [求助]如何取得子窗当前所选的栏位名称及具体数值
如何取得子窗当前所选的栏位名称及具体数值
子窗是用向导自动生成窗体，以数据表方式显示
目的是想把所选的数据向excel一样可以前移後挪

[此贴子已经被作者于2007-5-10 15:17:07编辑过]

作者: sgrshh29 时间: 2007-5-11 01:18
"如何取得子窗当前所选的栏位名称及具体数值",请举例明示要什么效果。

作者: lanchong 时间: 2007-5-11 03:32
标题: 如图：我如何取得
我如何取得子窗里的所选的栏位名称“rq”和数值"jgj"
允许多选
[attach]24340[/attach]

[此贴子已经被作者于2007-5-10 19:34:12编辑过]

作者: sgrshh29 时间: 2007-5-11 04:25
假定你的子窗体名为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

作者: lanchong 时间: 2007-5-12 22:48
多谢，可是如果我选择多个栏位又如何处理？

作者: lanchong 时间: 2007-5-17 22:31
顶一下

作者: goto2008 时间: 2007-5-18 22:32
说那么多，还不如把库传上来让那些高手看看。。不是更直观吗

作者: lanchong 时间: 2007-5-19 22:23
标题: 这也要传库????

以下是引用goto2008在2007-5-18 14:32:00的发言：

说那么多，还不如把库传上来让那些高手看看。。不是更直观吗

哪个人作的没有主子单方式？我只是想能把选中的数据向前后固定n栏移动

比如

a，b， c， d，e， f

g，h， i， j， k

1， 2， 3， 4， 5， 6， 7

我选中ijk345后按个按钮让他们向后移动3个栏位

变成

a，b， c， d，e， f

g，h，，，，i， j， k

1， 2，，，，3， 4， 5， 6， 7

作者: andymark 时间: 2007-5-19 22:56
上传库是有必要的,一方面加深对问题的理解,另一方面减少别人的劳动,很多时候别人都不愿意在没有例子又表达不清的问题上浪费太多的时间。

在EXCEL很容易现实的功能，在ACCESS就得花费一定的功夫，请楼主说明为何需要这样的

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)