- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 统计时，单位自动输入问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75661)
-- 发布时间：2015/10/12 14:28:00
-- 统计时，单位自动输入问题
问题：
此主题相关图片如下：2.png
我开发了个人力资源管理系统，系统中有【表A】，记录各单位人员的具体信息，其中【单位】列是绑定了【表C】里的【单位】
此主题相关图片如下：1.png
列详见图1，为了方便统计，现有【表B】用于汇总各单位的总人数等数据，详见图2，我目前设计的单位那列，是手动输入所有单位后刷新下数据才能显示出我想要的结果，这样虽然能暂时满足要求，但是不是长久之计，后期单位有增减的话还要一个一个改，非常不方便。我就想改进一下，点进去后，所有单位都依据【表C】单位列自动输上，求大神指点下代码~
此主题相关图片如下：1.png列详见图1，为了方便统计，现有【表B】用于汇总各单位的总人数等数据，详见图2，我目前设计的单位那列，是手动输入所有单位后刷新下数据才能显示出我想要的结果，这样虽然能暂时满足要求，但是不是长久之计，后期单位有增减的话还要一个一个改，非常不方便。我就想改进一下，点进去后，所有单位都依据【表C】单位列自动输上，求大神指点下代码~
-- 发布时间：2015/10/12 14:34:00
--
自动填充值啊
If
Maintable.Name = "销售统计"
Then
dim f As New Filler
DataTables("销售统计").DataRows.Clear() \'清除原有数据
f.SourceTable = DataTables("订单")
f.SourceCols = "产品"
f.DataTable = DataTables("销售统计")
f.DataCols = "产品"
f.Fill()
End
If
http://www.foxtable.com/help/topics/0681.htm