62,074
社区成员
发帖
与我相关
我的任务
分享
<asp:GridView ID="GridView1" runat="server" Width="800">
</asp:GridView>
Dim tb As New DataTable
tb.Columns.Add("合同Id", GetType(Integer))
tb.Columns.Add("服务中心名称", GetType(String))
tb.Columns.Add("大区", GetType(String))
tb.Columns.Add("城市", GetType(String))
tb.Columns.Add("合同名称", GetType(String))
tb.Columns.Add("查询开始日期", GetType(DateTime))
tb.Columns.Add("查询结束日期", GetType(DateTime))
tb.Columns.Add("合同开始日期", GetType(DateTime))
tb.Columns.Add("合同结束日期", GetType(DateTime))
tb.Columns.Add("期间天数", GetType(Integer))
tb.Columns.Add("摊销金额", GetType(Double))
Dim dt As DataTable = ds.Tables("contractList")
For i = 0 To dt.Rows.Count - 1
Dim id As Integer = dt.Rows(i)("id")
Dim beginDate As DateTime = cutTime(txtBegin.Text)
Dim endDate As DateTime = cutTime(txtEnd.Text)
Dim 合同开始日期 As DateTime = dt.Rows(i)("合同开始时间")
Dim 合同结束日期 As DateTime = dt.Rows(i)("合同结束时间")
Dim 期间天数 As Integer = getCountOfDaysInDuration(合同开始日期, 合同结束日期, beginDate, endDate)
Dim 摊销金额 As Double = 获得摊销计划中最新单价(id) * 期间天数
Dim dr As DataRow = tb.NewRow
dr("合同id") = id
dr("服务中心名称") = dt.Rows(i)("服务中心名称")
dr("大区") = dt.Rows(i)("大区")
dr("城市") = dt.Rows(i)("城市")
dr("合同名称") = dt.Rows(i)("合同名称")
dr("查询开始日期") = beginDate
dr("查询结束日期") = endDate
dr("合同开始日期") = dt.Rows(i)("合同开始时间")
dr("合同结束日期") = dt.Rows(i)("合同结束时间")
dr("期间天数") = 期间天数
dr("摊销金额") = Math.Round(摊销金额, 2)
tb.Rows.Add(dr)
Next
GridView1.DataSource = tb
GridView1.DataBind()