Foxtable(狐表)用户栏目专家坐堂 → 临时表中短时间如何设置


  共有2014人关注过本帖树形打印复制链接

主题:临时表中短时间如何设置

帅哥哟,离线,有人找我吗?
ZJZK2018
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
临时表中短时间如何设置  发帖心情 Post By:2019/3/21 13:04:00 [只看该作者]

下面代码短时间显示为“00:00”,如何处理?
'=======增加临时代理开标记录数据表=========
Dim dtb As New DataTableBuilder("标录明细水平表")
dtb.AddDef("系统编号", Gettype(String), 30)
dtb.AddDef("项目名称", Gettype(String), 200)
dtb.AddDef("开标日期", Gettype(Date))
dtb.AddDef("开标时间", Gettype(Date))
dtb.AddDef("中标基准价", Gettype(Double))
For Each tbdw As String In tb6.DataTable.GetValues("投标单位")
    dtb.AddDef(tbdw, Gettype(Double))
Next
tb5.DataSource  = dtb.BuildDataSource()

tb5.DataTable.DataCols("开标时间").SetDateTimeFormat(DateTimeFormatEnum.Time)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/21 15:18:00 [只看该作者]

 

不理解你的意思,代码没问题啊。你要做到什么效果?截图说明

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2019/3/21 15:25:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190321152103.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/21 15:59:00 [只看该作者]

请贴出完整代码

 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2019/3/21 16:47:00 [只看该作者]

Dim tb1 As Table = Tables(e.Form.Name & "_Table01")
Dim tb6 As Table = Tables(e.Form.Name & "_Table06")   '*****
'Dim zj As String = e.Form.Controls("cmb_zj").Value
'If zj IsNot Nothing Then
Dim jb As New SQLJoinTableBuilder("标录明细汇总表","标录明细")
jb.C
jb.AddTable("标录明细","系统编号","招标信息","系统编号")
jb.AddTable("标录明细","系统编号","开标记录","系统编号")
jb.AddCols("{开标记录}.开标日期","{开标记录}.开标时间","{标录明细}.系统编号","{标录明细}.项目名称","本期概算","投标家数","中标单位","中标报价","中标球号","{开标记录}.评标基准价", _
"收费计费额","收费基价","预算审核价","招标控制价","风险控制价","最高限价","最低限价","投标单位","中标候选人","投标球号","投标报价")

jb.AddExp("下浮率_球号比例","Case When 投标球号 > 0 And 投标家数 > 0 Then 投标球号 / 投标家数 Else 0 End")
jb.AddExp("下浮率_收费基价","Case When 收费基价 > 0 And 投标报价 > 0 Then 1 - 投标报价 / 收费基价 Else 0 End")
jb.AddExp("下浮率_预算审核价","Case When 预算审核价 > 0 And 投标报价 > 0 Then 1 - 投标报价 / 预算审核价 Else 0 End")
jb.AddExp("下浮率_招标控制价","Case When 招标控制价 > 0 And 投标报价 > 0 Then 1 - 投标报价 / 招标控制价 Else 0 End")
jb.AddExp("下浮率_风险控制价","Case When 风险控制价 > 0 And 投标报价 > 0 Then 1 - 投标报价 / 风险控制价 Else 0 End")
jb.AddExp("下浮率_最高限价","Case When 最高限价 > 0 And 投标报价 > 0 Then 1 - 投标报价 / 最高限价 Else 0 End")
jb.AddExp("下浮率_最低限价","Case When 最低限价 > 0 And 投标报价 > 0 Then 1 - 投标报价 / 最低限价 Else 0 End")

''-----根据tb1数据生成系统编号集合-------
Dim lst As New List(Of String)
For Each cr As Row In tb1.Rows
    If lst.Contains(cr("系统编号")) = False Then
        lst.Add(cr("系统编号"))
    End If
Next
Dim nids As String = String.Join("|",lst.ToArray)
jb.Filter =  "{标录明细}.系统编号 In ('" & nids.Replace("|","','") & "') And (投标球号 Is Not Null Or 投标报价 Is Not Null)"   '隐藏行   

''jb.Build()
tb6.DataSource = jb.BuildDataSource

''======窗口设置========
tb6.DataTable.GlobalHandler.DrawCell = True  '开启DrawCell事件
For Each r As Row In tb6.Rows
    For Each cl As Col In tb6.Cols
        If cl.DataCol.IsNumeric Then
            If r(cl.Name) = 0 Then
                r(cl.Name) = Nothing
            End If
        End If
    Next
Next

With tb6
    .Cols("开标时间").SetDateTimeFormat(DateTimeFormatEnum.Time)
   ' .Filter = "投标球号 Is Not Null or 投标报价 Is Not Null"   '隐藏行
    '.Sort = "开标日期,开标时间"
    .SetHeaderRowHeight(25,25) '设置标题行高度
    .DefaultRowHeight = 25    '设置行高度
    If .Rows.Count > 0 Then
        .Select(0,0) '光标在第一行第一列位置
    End If
End With

'自动取消窗口表中空值列的隐藏
With tb6
    For Each cl As Col In .Cols
        cl.TextAlign = TextAlignEnum.Center  '单元格内容居中
        Dim p As Integer = .FindRow(cl.Name & " Is Not Null or " & cl.Name & " <> 0")
        If p = -1 Then
            cl.Visible = False
        End If
        If cl.Name.Contains("下浮率") Then
            cl.DataCol.SetFormat("0.00%")
        End If
    Next
End With


结果代码:

Dim tb5 As Table = Tables(e.Form.Name & "_Table05")
Dim tb6 As Table = Tables(e.Form.Name & "_Table06")
'=======增加临时代理开标记录数据表=========
Dim dtb As New DataTableBuilder("标录明细水平表")
dtb.AddDef("系统编号", Gettype(String), 30)
dtb.AddDef("项目名称", Gettype(String), 200)
dtb.AddDef("开标日期", Gettype(Date))
dtb.AddDef("开标时间", Gettype(Date))
dtb.AddDef("中标基准价", Gettype(Double))
For Each tbdw As String In tb6.DataTable.GetValues("投标单位")
    dtb.AddDef(tbdw, Gettype(Double))
Next
tb5.DataSource  = dtb.BuildDataSource()
''==============加载数据到临时表===============
Dim str As String = e.Form.Controls("cmb_zj").Text

For Each lm As String() In tb6.DataTable.GetValues("系统编号|项目名称|开标日期|开标时间")
'For Each lm As String() In tb6.DataTable.GetValues("系统编号|项目名称|开标日期")
    Dim ndr As DataRow = tb5.DataTable.AddNew()
    ndr("系统编号") = lm(0)
    ndr("项目名称") = lm(1)
    ndr("开标日期") = lm(2)
    ndr("开标时间") = lm(3)
    For Each dc As DataCol In tb6.DataTable.DataCols
        If dc.Name = str Then
            For Each dr1 As DataRow In tb6.DataTable.Select("系统编号 = '" & lm(0) & "'")
                ndr(dr1("投标单位")) = dr1(dc.Name)
                Dim fdr As DataRow = DataTables("开标记录").Find("系统编号 = '" & lm(0) & "' And 中标单位 = '" & dr1("投标单位") & "'")
                If fdr IsNot Nothing Then
                    ndr("中标基准价") = dr1(dc.Name)
                    ndr("开标时间") = dr1("开标时间")
                End If
                'msgbox(dr1("开标时间"))
            Next
        End If
    Next
Next

''======临时表清零代码========
tb5.DataTable.GlobalHandler.DrawCell = True  '开启DrawCell事件
For Each r As Row In tb5.Rows
    For Each cl As Col In tb5.Cols
        If cl.DataCol.IsNumeric Then
            If r(cl.Name) = 0 Then
                r(cl.Name) = Nothing
            End If
        End If
    Next
Next

tb5.DataTable.DataCols("开标时间").SetDateTimeFormat(DateTimeFormatEnum.Time)
tb5.DefaultRowHeight = 28
tb5.Sort = "开标日期 " ' ,开标时间 DESC"
tb5.Select(0,0) '光标在第一行第一列位置
For Each c As Col In tb5.Cols   '单元格内容居中
    c.TextAlign = TextAlignEnum.Center
    If c.IsNumeric Then       '如果是数值型的列
        c.DataCol.SetFormat("0.00%")
    End If
Next

''自动取消窗口表中空值列的隐藏
With tb5
    For Each cl As Col In .Cols
        cl.Visible = True
    Next
    For Each c2 As Col In .Cols
        Dim p As Integer = .FindRow(c2.Name & " Is Not Null")
        If P = -1 Then
            c2.Visible = False
        End If
    Next
End With


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/21 17:29:00 [只看该作者]

红色代码弹出什么值?你逻辑是不是有错?

 

For Each lm As String() In tb6.DataTable.GetValues("系统编号|项目名称|开标日期|开标时间")
'For Each lm As String() In tb6.DataTable.GetValues("系统编号|项目名称|开标日期")
    Dim ndr As DataRow = tb5.DataTable.AddNew()
    ndr("系统编号") = lm(0)
    ndr("项目名称") = lm(1)
    ndr("开标日期") = lm(2)
    ndr("开标时间") = lm(3)
msgbox("aaa:" & lm(3))
    For Each dc As DataCol In tb6.DataTable.DataCols
        If dc.Name = str Then
            For Each dr1 As DataRow In tb6.DataTable.Select("系统编号 = '" & lm(0) & "'")
                ndr(dr1("投标单位")) = dr1(dc.Name)
                Dim fdr As DataRow = DataTables("开标记录").Find("系统编号 = '" & lm(0) & "' And 中标单位 = '" & dr1("投标单位") & "'")
                If fdr IsNot Nothing Then
                    ndr("中标基准价") = dr1(dc.Name)
                    ndr("开标时间") = dr1("开标时间")
                End If
                msgbox("bbb:" & dr1("开标时间"))
            Next
        End If
    Next
Next

 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2019/3/21 17:43:00 [只看该作者]

二个测试数据都对的,为什么最后显示为00:00

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/21 17:57:00 [只看该作者]

以下是引用ZJZK2018在2019/3/21 17:43:00的发言:
二个测试数据都对的,为什么最后显示为00:00

 

先设置这个 tb5.DataTable.DataCols("开标时间").SetDateTimeFormat(DateTimeFormatEnum.Time)

 

然后再赋值进去。也就是,把这个代码,写在前面去。


 回到顶部