- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问下这功能怎么实现，谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101985)
-- 发布时间：2017/6/11 11:47:00
-- 请问下这功能怎么实现，谢谢
请问有一张表“有氧运动”
结构如下
此主题相关图片如下：1.jpg
怎么按照由上自下的按顺序复制到表“运动处方”中的一条记录中去，比如第一条就写入到“有氧运动-项目1”，“有氧运动-时间1”中呢？，表结构如下
此主题相关图片如下：2.jpg
-- 发布时间：2017/6/11 12:38:00
--
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
Next
-- 发布时间：2017/6/11 13:24:00
--
请问下这是咋回事呢，谢谢
此主题相关图片如下：qq截图20170611132319.jpg
-- 发布时间：2017/6/11 13:59:00
--
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
-- 发布时间：2017/6/11 17:02:00
--
各位老师好，我想在我已经生成好的记录上追加后面的信息，我把代码修改了成这样，就是说我不需要新增一行在填，只要在当前行填充后面的数据就好了
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
Next
提示会报错，请问怎么办
[此贴子已经被作者于2017/6/11 17:03:04编辑过]
-- 发布时间：2017/6/11 17:12:00
--
还有就是请问下做图的时候我怎么才能在图表上显示数值，而不是在旁边显示图例呢？，就是说直接在饼图上对应区域显示内容和百分比，下面是代码
此主题相关图片如下：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编辑过]
-- 发布时间：2017/6/11 18:32:00
--
Dim s As Row
s=Tables("运动处方").Current
-- 发布时间：2017/6/11 18:33:00
--
回复6楼
Series1.DataLabelText = "aaaaabbbbccccc"