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

lanchong

如何取得子窗当前所选的栏位名称及具体数值
子窗是用向导自动生成窗体，以数据表方式显示
目的是想把所选的数据向excel一样可以前移後挪

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

sgrshh29

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

lanchong

我如何取得子窗里的所选的栏位名称“rq”和数值"jgj"
允许多选

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

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

lanchong

多谢，可是如果我选择多个栏位又如何处理？

lanchong

顶一下

goto2008

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

lanchong

以下是引用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

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

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