垂直转换水平表百分比设置问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dtb As New DataTableBuilder("表D")
dtb.AddDef("目标产值",Gettype(String),10)
dtb.AddDef("奖金提取比例",Gettype(Double))
dtb.AddDef("总奖金",Gettype(String),10)
For Each v As String In DataTables("表B").GetValues("净利润率")
    dtb.AddDef(v, Gettype(Double), "", Format(v, "0.00%"))
Next
dtb.Build()
For Each v As String() In DataTables("表B").GetValues("目标产值|奖金提取比例|总奖金")
    Dim dr1 As DataRow = DataTables("表D").AddNew()
    dr1("目标产值") = v(0)
    dr1("奖金提取比例") = v(1)
    dr1("总奖金") = v(2)
    For Each dr2 As DataRow In DataTables ("表B").Select("目标产值 = '" & v(0) & "' And 奖金提取比例 = '" & v(1) & "' And 总奖金 = '" & v(2) & "'")
        dr1(dr2("净利润率")) = dr2("奖金额")
    Next
Next
Tables("总因子_Table1").DataSource = DataTables("表D")
DataTables("总因子_Table1").DataCols("奖金提取比例").SetFormat("0.00%")    这个部分是增加列,这个代码无法生成0.00%,现在显示的是0.15

主题：垂直转换水平表百分比设置问题