共39 条记录, 每页显示 10 条, 页签: [1] [2][3][4]

标题：关于列顺序批量调整的求助（商业版与开发版）

1楼

kylin 发表于：2011/9/13 11:39:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:例子.foxdb

打开窗口，见说明

[此贴子已经被作者于2011-9-13 12:48:18编辑过]

2楼

ybil 发表于：2011/9/13 12:13:00

要想更多人想办法,还是提供商用版格式文件.

3楼

kylin 发表于：2011/9/13 12:48:00

补发一个商业版的例子，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

谢谢各位先！

4楼

lyq 发表于：2011/9/13 13:05:00

是要这样的结果吗？

此主题相关图片如下：gg.jpg

5楼

kylin 发表于：2011/9/13 13:08:00

顺序是需要和“尺码档案”中先后顺序一模一样，我写的按钮代码的结果是前面一部分符合，后面一部份的很混乱

6楼

mr725 发表于：2011/9/13 13:08:00

可以参考： http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=8643&replyID=&skin=1

7楼

ybil 发表于：2011/9/13 13:14:00

Dim m,n,k As Integer

m = Tables("采购明细").Cols("F1").Index

k = Tables("尺码档案").rows.count

For i As Integer = 1 To k

For Each r As Row In Tables("尺码档案").rows

If Tables("采购明细").Cols("F" & i).Caption = r("尺码名称")

n = m + r.Index

Tables("窗口1_Table1").Cols("F" & i).Move(n)

End If

8楼

kylin 发表于：2011/9/13 13:19:00

这个了解，谢谢mr25兄，呵呵

可是我的这个问题还是有些不同，不知能否请mr25兄从代码逻辑上和实际配套方面帮忙了，呵呵

9楼

kylin 发表于：2011/9/13 13:58:00

ybil版的代码也还是无法达到目的，为了明了，我重整了我的这个例子，请各位重看一下例子吧，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

[此贴子已经被作者于2011-9-13 15:31:29编辑过]

10楼

blackzhu 发表于：2011/9/13 14:03:00

Dim m,n,k As Integer
m = Tables("采购明细").Cols("F1").Index
k = Tables("尺码档案").rows.count
For i As Integer = 1 To k
    For Each r As Row In Tables("尺码档案").rows
        If Tables("采购明细").Cols("F" & i).Caption = r("尺码名称")
            n = r.Index
            Tables("窗口1_Table1").Cols("F" & i).Move(n)
        End If
    Next
Next

共39 条记录, 每页显示 10 条, 页签: [1] [2][3][4]