主题：报表的格式转换

怎么定位一个单元格

我想通过以下代码实现功能：1、从利润表提取列组成一个数组，然后形成新表B的行；2、把生成的表B的数据绑定到窗口1的table中。通过红色代码生成表B提示错误，不用红色代码用黄色代码可以生成三行，也可以绑定的窗口中，但是只是一个空表。

Forms("窗口1").open
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("项目", Gettype(String), 30)
For Each v As String In DataTables("利润表").GetV alues("发生日期")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
Dim nms() As String = {"营业收入","营业成本","营业税金及附加"}
'Dim cnt As Integer = DataTables("利润表").DataCols.Count - 1
'Dim nms(cnt-1) As String
'For i As Integer = 0 To cnt - 1
    'nms(i) = DataTables("利润表").DataCols(i).name
'Next
For Each nm As String In nms
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For Each dr1 As DataRow In DataTables("利润表").DataRows
       
        dr2("项目") = nm
        dr2(dr1("发生日期"))=dr1(nm)
    Next
Next
Tables("窗口1_Table1").DataSource = dtb.Build DataSource()
'Tables("窗口1_Table1").Fill("Sel ect * From {订单}", False)

不行呀，还是显示不出来数据，只有一个空白表格

Forms("窗口1").open
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("项目", Gettype(String), 30)
For Each v As String In DataTables("利润表").GetValues("发生日期")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
Dim nms() As String = {"营业收入","营业成本","营业税金及附加"}
For Each nm As String In nms
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    dr2("项目") = nm
    For Each cl As Col In Tables("表B").cols
        If cl.name <> "项目"
            dr2(cl.name) = DataTables("利润表").compute("sum(" & dr2("项目") & ")","发生日期 = #" & cl.name & "# ")
        End If
    Next
Next
Tables("窗口1_Table1").DataSource = DataTables("表B")

我想先对利润的列标题做了一循环，把利润表的列标题自动生成数组nms(),然后再转换为表格式

'Dim cnt As Integer = DataTables("利润表").DataCols.Count - 1
'Dim nms() As String
'For i As Integer = 0 To cnt - 1
    'nms(i) = DataTables("利润表").DataCols(i).name
'Next
For Each nm As String In nms
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    dr2("项目") = nm
    For Each cl As Col In Tables("表B").cols
        If cl.name <> "项目"
            dr2(cl.name) = DataTables("利润表").compute("sum(" & dr2("项目") & ")","发生日期 = #" & cl.name & "# ")
        End If
    Next
Next
Tables("窗口1_Table1").DataSource = DataTables("表B")

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:横表换成纵表1.foxdb