主题：[求助]可以实现这样表格的输入吗?

呵呵，这个是通用代码，所以不能排序。

如果是专用代码，你可以直接生成一个固定格式的交叉表，按自己需要的顺序排列列的位置，这个应该难不倒你的

也来热闹一下：

下面是窗口table中增加列后，表A将增加一行::::::::

If DataTables("窗口1_Table1").DataCols.Contains("XL") = False Then   ' 这里XL可以是变量，下行100也如此或空值
    DataTables("窗口1_Table1").DataCols.Add("XL", Gettype(Double), "100")
End If
Dim n As Integer = Tables("窗口1_Table1").ColSel
Tables("表A").addnew()      ’如果你需要可以加个判断是否增加行···
Tables("表A").current("颜色") = Tables("窗口1_Table1").current("颜色")
Tables("表A").current("尺码") = Tables("窗口1_Table1").cols(n).name
Tables("表A").current("数量") = Tables("窗口1_Table1").current(Tables("窗口1_Table1").cols(n).name)

当在表A中录入时，新增的记录要在窗口Table中增加没尺码（列）也是很方便的了。