之前用
Dim q As new QueryBuilder q.TableName = sd1.month & "月工资表" 用这个办法可以生成一个工资表的临时表,表明为 月份+工资表
但是现在想用fill方法,把这个临时表加到窗口中,也希望他用这个 sd1.month & "月工资表" 方法作为表名。不知道如何处理。现在的代码是:
Tables("财务工具_Table1").Fill("se le ct ...........,True)
With DataTables("财务工具_Table1")
.DataCols.Add("个税", Gettype(Integer), " IIF(工资 > 3500,IIF( 工资 > 5000,IIF(工资 > 7000, 245 ,( 工资 - 3500) * 0.1 - 105) ,( 工资 - 3500 ) * 0.03 ),0) " )
.DataCols.Add("税后",Gettype(Integer), "工资 - 个税 ")
.DataCols.Add("农行",Gettype(Integer), " IIF(税后 >= 7000 , 6955 , 税后) " )
.DataCols.Add("待遇总额",Gettype(Integer), "税后 - 公司缴纳社保 - 个人缴纳社保" )
End With
Tables("财务工具_Table1").AutoSizeCols()
Tables("财务工具_Table1").AllowEdit=True
For Each dc As Col In Tables("财务工具_Table1").cols
With Tables("财务工具_Table1")
dc.GrandTotal = True '指定要合计的列
.GrandTotal = True '显示合计模式
End With
Next
这样的话就不知如何把表名称改成之前那样。
[此贴子已经被作者于2018/6/2 11:47:37编辑过]