- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据整合 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152226)
-- 发布时间：2020/7/9 20:46:00
-- 数据整合
老师好，我的文档在附件。数据是两条测线（被分成三段），包含测线线名、起始点测名及其坐标x和y和 终止 点名及其坐标x和y ，表A包含分成三段的测线数据，现在需要将这分段的数据整理成一条线： 包含测线线名、起始点名及其坐标x和y 和终止点名及其坐标x和y，同时将各个段的点数累加。 表B是手动整理后的结果，请问如何写代码？多谢啦。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:linepoints.zip |
-- 发布时间：2020/7/9 21:43:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:linepoints.zip |
-- 发布时间：2020/7/10 10:53:00
--
谢谢老师。您给的文件版本高，我的开发版版本低，打不开您给文件。所以有劳您提供免费版本的或者2018 开发版的的文件。谢谢。
-- 发布时间：2020/7/10 10:55:00
--
购买升级服务
-- 发布时间：2020/7/10 11:43:00
--
我现在不在国内，买不了。
-- 发布时间：2020/7/10 12:06:00
--
表事件
表A_DataColChanged
If e.DataRow.IsNull("LineNumber") = False
Dim dr As DataRow = DataTables("表B").Find("Line=\'" & e.DataRow("LineNumber") & "\'")
If dr Is Nothing Then
dr = DataTables("表B").AddNew()
dr("Line") = e.DataRow("LineNumber")
End If
DataTables("表B").DataCols("Line").RaiseDataColChanged(dr)
End If
表B_DataColChanged
If e.DataCol.Name = "Line" Then
Dim dr As DataRow = DataTables("表A").Find("LineNumber=\'" & e.NewValue & "\'","StartPointNumber")
If dr IsNot Nothing Then
e.DataRow("StartPointNumber") = dr("StartPointNumber")
e.DataRow("StartX") = dr("StartX")
End If
dr = DataTables("表A").Find("LineNumber=\'" & e.NewValue & "\'","EndPointNumber desc")
If dr IsNot Nothing Then
e.DataRow("EndPointNumber") = dr("EndPointNumber")
e.DataRow("EndX") = dr("EndX")
End If
e.DataRow("TotalPoints") = val(e.DataRow("EndPointNumber")) - val(e.DataRow("StartPointNumber"))
End If
-- 发布时间：2020/7/10 12:11:00
--
多谢
-- 发布时间：2020/7/11 14:15:00
--
老师好，我的目的是用ColorPicker1拾取颜色，然后保存在表A的第一列，程序启动时ColorPicker2读取存储的颜色，但是程序不通，请问如何修改。谢谢。
程序在附件。
-- 发布时间：2020/7/11 14:32:00
--
建议转换为颜色整数值保存：http://www.foxtable.com/webhelp/topics/0496.htm
-- 发布时间：2020/7/11 14:44:00
--
老师，这个帮助我一直在使用，但是不行，没有结合 ColorPicker控件，这部分帮助不行。您看是否有其他办法。我的目的就是保存颜色的设置，然后随时调用这个设置。