Foxtable(狐表)用户栏目专家坐堂 → 手工编码填充问题


  共有13194人关注过本帖平板打印复制链接

主题:手工编码填充问题

美女呀,离线,留言给我吧!
yangming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2010/2/28 23:42:00 [只看该作者]

For Each dr1 As DataRow In DataTables("表A").Select("[编码]='a1' and [名称] Like '*城中*'")
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dc As DataCol in DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next

 回到顶部