Foxtable(狐表)用户栏目专家坐堂 → 表的转换


  共有11024人关注过本帖树形打印复制链接

主题:表的转换

帅哥哟,离线,有人找我吗?
czy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/12/2 11:49:00 [显示全部帖子]

怎么区分新加的数据?是型号不同吗?

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/12/2 16:08:00 [显示全部帖子]

用这种办法行不行?

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目19.table


 回到顶部
帅哥哟,离线,有人找我吗?
czy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/12/2 16:12:00 [显示全部帖子]

如果每次转换的数据量大,将窗口按钮代码改成这样好一点。

 

Dim drs As List(Of DataRow) = DataTables("EXCEL表").Select("[型号] Is Not Null And [sys_标记] = False")
If drs.Count = 0 Then
    MessageBox.Show("没有新数据!")
    Return
Else
    Tables("窗口1_Table1").StopRedraw
    For Each dr As DataRow In drs
        For Each dc As DataCol In DataTables("EXCEL表").DataCols
            Select Case dc.Name
                Case "型号","规格","sys_标记"
                Case Else
                    If dr.IsNull(dc.Name) = False Then
                        Dim r As Row = Tables("表B").Addnew
                        r("型号") = dr("型号")
                        r("规格") = dr("规格")
                        r("材料") = dc.Name
                        r("用量") = dr(dc.Name)
                    End If
            End Select
        Next
        dr("sys_标记") = True
    Next
    Tables("窗口1_Table1").ResumeRedraw
End If

[此贴子已经被作者于2010-12-2 16:14:26编辑过]

 回到顶部