以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于列的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48639)
--  作者：lfxwdxx
--  发布时间：2014/4/2 16:40:00
--  关于列的问题
请问老师，怎么样往同一个表中只添加指定列的数值？同样，怎么样只删除这个表中指定列的数值？
--  作者：lfxwdxx
--  发布时间：2014/4/2 16:41:00
--  
求代码。谢谢。
--  作者：Bin
--  发布时间：2014/4/2 16:48:00
--  
不是很理解你第一个问题.

第二个问题. 可以使用 DataTables("表名").ReplaceFor("列名","","")
--  作者：lfxwdxx
--  发布时间：2014/4/2 17:00:00
--  

设计了一个表，尤以下字段组成： 姓名  性别  学号  成绩   班级   家庭住址  工作单位  

 

相当由三个表组成如：表一：姓名   学号 性别    成绩

                            表二：姓名   学号  班级 

                            表三：姓名   学号 家庭住址  工作单位  

现在又做的是，通过不同的“导入”按钮分别导入三个表，最终形成一个表。

 
--  作者：lfxwdxx
--  发布时间：2014/4/2 17:05:00
--  
学号唯一，最终形成的表中不能有重复学号
--  作者：lfxwdxx
--  发布时间：2014/4/2 17:05:00
--  
谢谢。
--  作者：Bin
--  发布时间：2014/4/2 17:06:00
--  
参考帮助http://www.foxtable.com/help/topics/2314.htm

或者上例子.
--  作者：lfxwdxx
--  发布时间：2014/4/2 17:14:00
--  

对不起，我没有说清楚。由于不是正版的原因，收到表的数量的限制，不能设计许多表。所以，只能在有限的表中做文章。简单讲，就是对同一个表的几个不同字段在不同时间付值。

谢谢。
--  作者：Bin
--  发布时间：2014/4/2 17:16:00
--  
不懂.
--  作者：有点甜
--  发布时间：2014/4/2 17:33:00
--  

 代码类似

 

for each dr as datarow in datatables("表一").datarows

    dim fdr as datarow = datatables("总表").find("学号 = \'" & dr("学号") & "\'")

    if fdr is nothing then

        fdr = datatables("总表").AddNew

        fdr("学号") = fdr("学号")

    end if

    fdr("姓名") = dr("姓名")

    fdr("性别") = dr("性别")

    fdr("成绩") = dr("成绩")

next

 

 

for each dr as datarow in datatables("表二").datarows

    dim fdr as datarow = datatables("总表").find("学号 = \'" & dr("学号") & "\'")

    if fdr is nothing then

        fdr = datatables("总表").AddNew

        fdr("学号") = fdr("学号")

    end if

    fdr("姓名") = dr("姓名")

    fdr("班级") = dr("班级")

next

 

 

for each dr as datarow in datatables("表三").datarows

    dim fdr as datarow = datatables("总表").find("学号 = \'" & dr("学号") & "\'")

    if fdr is nothing then

        fdr = datatables("总表").AddNew

        fdr("学号") = fdr("学号")

    end if

    fdr("姓名") = dr("姓名")

    fdr("家庭住址") = dr("家庭住址")

    fdr("工作单位") = dr("工作单位")

next