[求助]图表怎么设计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

比如我有2列，第一列是人员编号，第二列是人员姓名（共127人）。。怎么把这些人罗列成金字塔（如图）？

然后怎么自动把左侧2-119人员自动读取到另一个表里？

下面的数字应该是人名

								1									一层
							2		3								二层
						4	5		6	7							三层
				8	9	10	11		12	13	14	15					四层
16	17	18	19	20	21	22	23		24	25	26	27	28	29	30	31	五层
32	33	34	35	36	37	38	39		40	41	42	43	44	45	46	47	六层
48	49	50	51	52	53	54	55		56	57	58	59	60	61	62	63	六层
64	65	66	67	68	69	70	71		72	73	74	75	76	77	78	79	七层
80	81	82	83	84	85	86	87		88	89	90	91	92	93	94	95	七层
96	97	98	99	100	101	102	103		104	105	106	107	108	109	110	111	七层
112	113	114	115	116	117	118	119		120	121	122	123	124	125	126	127	七层

求助~！求助~！求助~！求助~！求助~！求助~！求助~！求助~！求助~！

求帮助

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

谢谢~！我还有一个问题：怎么将现在的“表A”里面的数据拆分。把顶端1号排除，剩下的左右两边拆成2个表格（1-8列变成一个表，9-16列变成一个表。），就不用图表形式显示了，显示方式和“实验”表一样。

在问一个体外话，我想把某个人标记成不一样的颜色，该怎么弄？。。。然后表A在读取的时候自动也把某个人标记。。。。

我可以手动标注颜色么？

请看自动表1，就是将“表A”的左半边数据提取出来。。。右半边在形成另一个表（和左半边同理

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

）

大神，这个有希望么？

大神帮我看看怎么回事？错误是：

从字符串“人员编号”到类型“Integer”的转换无效。

输入字符串的格式不正确。

代码是

Dim t As Table = Tables("组号6")

Dim i As Integer = 1

Dim idx As Integer = 0

For j As Integer =0 To 2

idx = idx+ 2^(j+1)

For i = i To idx

Output.Show(i & "-" & idx-2^j)

If i <= idx-2^j Then

Dim dr1 = Tables("A1").AddNew

dr1("人员编号") = t.Rows("人员编号")

dr1("人员姓名") = t.Rows("人员姓名")

dr1("收据单号") = t.Rows("收据单号")

dr1("投入金额") = t.Rows("投入金额")

dr1("电话号码") = t.Rows("电话号码")

dr1("开户行") = t.Rows("开户行")

dr1("银行卡号") = t.Rows("银行卡号")

dr1("投入点位") = t.Rows("投入点位")

dr1("投入方式") = t.Rows("投入方式")

dr1("介绍人") = t.Rows("介绍人")

Else

Dim dr2 = Tables("A2").AddNew

dr2("人员编号") = t.Rows("人员编号")

dr2("人员姓名") = t.Rows("人员姓名")

dr2("收据单号") = t.Rows("收据单号")

dr2("投入金额") = t.Rows("投入金额")

dr2("电话号码") = t.Rows("电话号码")

dr2("开户行") = t.Rows("开户行")

dr2("银行卡号") = t.Rows("银行卡号")

dr2("投入点位") = t.Rows("投入点位")

dr2("投入方式") = t.Rows("投入方式")

dr2("介绍人") = t.Rows("介绍人")

End If

idx = 1

For i = 15 To t.Rows.Count - 1 Step 8

If idx = 1 Then

For j As Integer = 0 To 7

Dim dr1 = Tables("A1").AddNew

dr1("人员编号") = t.Rows(i+j)("人员编号")

dr1("人员姓名") = t.Rows(i+j)("人员姓名")

dr1("收据单号") = t.Rows(i+j)("收据单号")

dr1("投入金额") = t.Rows(i+j)("投入金额")

dr1("电话号码") = t.Rows(i+j)("电话号码")

dr1("开户行") = t.Rows(i+j)("开户行")

dr1("银行卡号") = t.Rows(i+j)("银行卡号")

dr1("投入点位") = t.Rows(i+j)("投入点位")

dr1("投入方式") = t.Rows(i+j)("投入方式")

dr1("介绍人") = t.Rows(i+j)("介绍人")

idx = 2

Else

For j As Integer = 0 To 7

Dim dr2 = Tables("A2").AddNew

dr2("人员编号") = t.Rows(i+j)("人员编号")

dr2("人员姓名") = t.Rows(i+j)("人员姓名")

dr2("收据单号") = t.Rows(i+j)("收据单号")

dr2("投入金额") = t.Rows(i+j)("投入金额")

dr2("电话号码") = t.Rows(i+j)("电话号码")

dr2("开户行") = t.Rows(i+j)("开户行")

dr2("银行卡号") = t.Rows(i+j)("银行卡号")

dr2("投入点位") = t.Rows(i+j)("投入点位")

dr2("投入方式") = t.Rows(i+j)("投入方式")

dr2("介绍人") = t.Rows(i+j)("介绍人")

idx = 1

End If

主题：[求助]图表怎么设计