Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共12 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:[求助]关于全局变量与数据填充

11楼
狐狸爸爸 发表于:2009/2/2 10:24:00
仔细想想,你说的问题其实不存在,没有必要复制员工表所有列内容到工资表,通常只需姓名或者工号列即可。
可以在员工表和工资表之间建立父子关联,这样你只需复制关联列(例如工号)到工资表,其它姓名、部门之类的,可以通过表达式来显示。

如果你想复制上月数据到本月,那是肯定可以的,用DataTable的Select方法获得上月所有的行,然后逐行复制即可。

大概就是:

Dim dt As DataTable = DataTables("工资表").
Dim drs As List(Of DataRow) = dt.Select("筛选上月的判断条件")
For Each dr1 As DataRow in drs
    Dim dr1 As DataRow = dt.AddNew()
    For each dc As DataCol in dt.DataCols
         dr2(dc.name) = dr1(dc.name)
    Next
    dr1("年月") = Date.Today.Year & "-" & Date.Today.Month
Next


其实万变不离其宗,熟练了,代码比起易表的And And,要更简单一些。
[此贴子已经被作者于2009-2-2 10:25:27编辑过]
12楼
舜风 发表于:2009/2/3 22:23:00
根据案例学习分析代码--轻松
共12 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.