Dim f As New Filler
f.SourceTable = DataTables("T28") '指定数据来源
f.SourceCols = "T28CT,T28UT,T28DL,T28UserId,T28DeptId,T28PointId,F390,F391,F392,F394,F395,F396,F397,F398,F399,F400,F401,F402,F403,F404,F405,F406,F407,F408,F409,F410,F411,F412,F413,F414,F415,F416,F417,F418,F419,F420,F421,F422,F4367,F4368,F4370,F4371,F4372,F4373,F4374,F4375,F4376,F4377,F4378,F4379,F4380,F4381,F4382,F5140,F5221,F5222,F5223,F5224,F5225,F5226,F5299,F5308,F5310,F5311,F5312,F5313,F6462,F6463,F6517,F7161,F7163"
'指定数据来源列
f.DataTable = DataTables("T451") '指定数据接收表
f.DataCols = "T451CT,T451UT,T451DL,T451UserId,T451DeptId,T451PointId,F7671,F7672,F7673,F7674,F7675,F7676,F7677,F7678,F7679,F7680,F7681,F7682,F7683,F7684,F7685,F7686,F7687,F7688,F7689,F7690,F7691,F7692,F7693,F7694,F7695,F7696,F7697,F7698,F7699,F7700,F7701,F7702,F7703,F7704,F7705,F7706,F7707,F7708,F7709,F7710,F7711,F7712,F7713,F7714,F7715,F7716,F7717,F7718,F7719,F7720,F7721,F7722,F7723,F7724,F7725,F7726,F7727,F7728,F7729,F7730,F7731,F7732,F7733,F7734,F7735" '指定数据接收列
f.Fill() '填充数据
加好友 
发短信
Post By：2016/10/24 15:17:00 [只看该作者]
Post By：2016/10/24 16:10:00 [只看该作者]
