请问下这功能怎么实现，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问有一张表“有氧运动”

结构如下

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

怎么按照由上自下的按顺序复制到表“运动处方”中的一条记录中去，比如第一条就写入到“有氧运动-项目1”，“有氧运动-时间1”中呢？，表结构如下

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

Dim s As Row

s=Tables("运动处方").AddNew

Dim i As Integer=1

For Each a As Row In Tables("有氧运动").Rows

If Tables("运动处方").Cols.Contains("有氧运动_项目" & i) Then

s("有氧运动_项目" & i)=a("项目")

s("有氧运动_时间" & i)=a("时间")

End If

i+=1

请问下这是咋回事呢，谢谢
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20170611132319.jpg

Dim s As Row
s=Tables("运动处方").AddNew
Dim j As Integer=1
For Each a As Row In Tables("有氧运动").Rows
    If Tables("运动处方").Cols.Contains("有氧运动_项目" & j) Then
        s("有氧运动_项目" & j)=a("项目")
        s("有氧运动_时间" & j)=a("时间")
    End If
    j+=1
Next

各位老师好，我想在我已经生成好的记录上追加后面的信息，我把代码修改了成这样，就是说我不需要新增一行在填，只要在当前行填充后面的数据就好了

Dim s As Row

s=Tables("运动处方").Value

Dim j As Integer=1

For Each a As Row In Tables("有氧运动").Rows

If Tables("运动处方").Cols.Contains("有氧运动_项目" & j) Then

s("有氧运动_项目" & j)=a("项目")

s("有氧运动_时间" & j)=a("时间")

End If

j+=1

提示会报错，请问怎么办

[此贴子已经被作者于2017/6/11 17:03:04编辑过]

还有就是请问下做图的时候我怎么才能在图表上显示数值，而不是在旁边显示图例呢？，就是说直接在饼图上对应区域显示内容和百分比，下面是代码

此主题相关图片如下：qq截图20170611171019.jpg

Dim sj1 As Double = val(e.Form.Controls("TextBox12").text)

Dim sj2 As Double = val(e.Form.Controls("TextBox22").text)

Dim sj3 As Double = val(e.Form.Controls("TextBox32").text)

Dim sj4 As Double = val(e.Form.Controls("TextBox42").text)

Dim Chart1 As WinForm.Chart '定义一个图表变量

Dim Series1 As WinForm.ChartSeries '定义一个图系变量

Chart1= Forms("运动处方").Controls("Chart2") ' 引用窗口中的图表

Chart1.SeriesList.Clear

Chart1.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart1.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

Series1 = Chart1.SeriesList.Add() '增加一个图系

Series1.Length = 1 '一个系列只能包括一个值

Series1.Text = "有氧运动"

Series1.Y(0) = sj1

Series1 = Chart1.SeriesList.Add() '增加一个图系

Series1.Length = 1 '一个系列只能包括一个值

Series1.Text = "力量运动"

Series1.Y(0) = sj2

Series1 = Chart1.SeriesList.Add() '增加一个图系

Series1.Length = 1 '一个系列只能包括一个值

Series1.Y(0) = sj3

Series1.Text = "柔韧运动"

Series1 = Chart1.SeriesList.Add() '增加一个图系

Series1.Length = 1 '一个系列只能包括一个值

Series1.Y(0) = sj4

Series1.Text = "日常活动"

Chart1.LegendVisible = False '显示图列

Chart1.LegendCompass= CompassEnum.East '图列显示在东方(右方)

[此贴子已经被作者于2017/6/11 17:13:07编辑过]

Dim s As Row

s=Tables("运动处方").Current

回复6楼

Series1.DataLabelText = "aaaaabbbbccccc"

主题：请问下这功能怎么实现，谢谢