Foxtable(狐表)用户栏目专家坐堂 → [求助]列标题怎么固定高度?每次加载都是很高,我在最后加了设置标题高都不行


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

主题:[求助]列标题怎么固定高度?每次加载都是很高,我在最后加了设置标题高都不行

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
[求助]列标题怎么固定高度?每次加载都是很高,我在最后加了设置标题高都不行  发帖心情 Post By:2020/9/18 13:06:00 [只看该作者]

[求助]列标题怎么固定高度?每次加载都是很高,比行还高一些,我在最后加了设置标题高都不行
'设置列宽行高排序

Tables("订单管理_Table1").DefaultRowHeight =87
Tables("订单管理_Table1").SetColVisibleWidth("序号|30|图标|50|订单号|130|订单状态|50|店铺|80|时效|100|买家|80|收件信息|120|金额|40|重量|40|件数|40|快递模板|50|运单号|100|货品摘要|120|时间信息|200|备注信息|200")
Tables("订单管理_Table1").Sort ="时效"
Tables("订单管理_Table1").SetHeaderRowHeight(25)

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/18 13:39:00 [只看该作者]

我测试没有问题,请生成实例说明。

如果有用到fill,datasource设置表格,在设置后再调用上面代码

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/9/18 20:18:00 [只看该作者]

datasource是在这个之后调用代码 的。我特地放到了最后一行,还是不行

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/9/18 20:19:00 [只看该作者]

为啥之前倒是可以。

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/9/18 20:20:00 [只看该作者]

还有别的因素吗?



全部代码
If Not Tables("订单管理_Table1").Cols.Contains("时效") Then
    DataTables("订单管理_Table1").DataCols.Add("时效", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("收件信息") Then
    DataTables("订单管理_Table1").DataCols.Add("收件信息", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("货品摘要") Then
    DataTables("订单管理_Table1").DataCols.Add("货品摘要", Gettype(String ),9999)
End If
If Not Tables("订单管理_Table1").Cols.Contains("时间信息") Then
    DataTables("订单管理_Table1").DataCols.Add("时间信息", Gettype(String ),999)
End If
If Not Tables("订单管理_Table1").Cols.Contains("图标") Then
    DataTables("订单管理_Table1").DataCols.Add("图标", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("备注信息") Then
    DataTables("订单管理_Table1").DataCols.Add("备注信息", Gettype(String), 999)
End If
If Not Tables("订单管理_Table1").Cols.Contains("订单状态") Then
    DataTables("订单管理_Table1").DataCols.Add("订单状态", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("店铺") Then
    DataTables("订单管理_Table1").DataCols.Add("店铺", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("买家") Then
    DataTables("订单管理_Table1").DataCols.Add("买家", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("金额") Then
    DataTables("订单管理_Table1").DataCols.Add("金额", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("重量") Then
    DataTables("订单管理_Table1").DataCols.Add("重量", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("件数") Then
    DataTables("订单管理_Table1").DataCols.Add("件数", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("快递模板") Then
    DataTables("订单管理_Table1").DataCols.Add("快递模板", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("运单号") Then
    DataTables("订单管理_Table1").DataCols.Add("运单号", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("订单号") Then
    DataTables("订单管理_Table1").DataCols.Add("订单号", Gettype(String ),999)
End If
If Not Tables("订单管理_Table1").Cols.Contains("序号") Then
    DataTables("订单管理_Table1").DataCols.Add("序号", Gettype(String ),255)
End If





'【删除】
Dim cmd As new *************
Tables("订单管理_快递表").DataSource = dt



Dim cmd1 As new SQL**********************
Tables("订单管理_店铺表").DataSource = dt1



For Each r As Row In Tables("订单管理_Table1").Rows
    
        Dim t1 As Date=r("TradeTime")
    Dim t As TimeSpan = Date.Now-t1
    r("时效")=t.Days & "天" & t.Hours & "小时" & t.Minutes & "分"

    r("收件信息")=r("Country")& r("Province")& r("City")& r("Town")& r("Adr").substring(0,2) & "****" &  r("Adr").substring(r("Adr").Length-2) &" "& r("Tel").substring(0,3) & "****" &  r("Tel").substring(7) &" "& r("SndTo")
    r("备注信息")="买家:"&r("CustomerRemark")&vbcrlf &"卖家:"&r("Remark")&vbcrlf &"系统:"&r("AppendRemark")
    r("时间信息")="下:"&r("TradeTime")&vbcrlf &"审:"&r("ConfirmTime")&vbcrlf &"快登记时间:"&r("RegTime")&vbcrlf &"字段四单:"&r("Reserved4")&vbcrlf &"验:"&r("ChkTime")&vbcrlf &"发:"&r("SndTime")
    r("货品摘要")=r("GoodsList")
    
    
    
    Select Case r("TradeStatus")
        Case 0
            r("订单状态")="已取消"
        Case 2
            r("订单状态")="审核中"
        Case 5
            r("订单状态")="打印中"
        Case 7
            r("订单状态")="验货中"
        Case 9
            r("订单状态")="代销发货"
        Case 10
            r("订单状态")="委外发货"
        Case 11
            r("订单状态")="已发货"
    End Select
    
    
    Dim dr As DataRow
    dr = DataTables("订单管理_店铺表").Find("ShopID='"  &r("ShopID") & "'")
    If dr IsNot Nothing Then '如果找到的话
        r("店铺")=dr("ShopName")
    End If
    
    
    
    
    r("买家")=r("TradeNick")
    r("金额")=r("AllTotal")
    r("重量")=r("PackagedWeight")
    r("件数")=""
    
    If not r("Reserved2")="" Then
        Dim 快递 As DataRow = DataTables("订单管理_快递表").Find("[_Identify] = " & r("Reserved2") )
        
        
        If 快递 IsNot Nothing Then
            
            
            
            r("快递模板")=快递("快递名称")
        End If
    End If
    r("运单号")=r("PostID")
    r("订单号")= "系统单号:"&r("TradeNO")& vbcrlf &"原始单号:"&r("TradeNO2")
    
Next
'设置列宽行高排序

Tables("订单管理_Table1").DefaultRowHeight =87
Tables("订单管理_Table1").SetColVisibleWidth("序号|30|图标|50|订单号|130|订单状态|50|店铺|80|时效|100|买家|80|收件信息|120|金额|40|重量|40|件数|40|快递模板|50|运单号|100|货品摘要|120|时间信息|200|备注信息|200")
Tables("订单管理_Table1").Sort ="时效"
Tables("订单管理_Table1").SetHeaderRowHeight(25)
For Each r As Row In Tables("订单管理_Table1").rows
    r("序号") = r.index+1
Next

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/9/18 20:21:00 [只看该作者]


[此贴子已经被作者于2020/9/18 20:24:36编辑过]

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/19 8:58:00 [只看该作者]

用法应该没有问题的。是不是其它地方又重新设置了datasource?每次设置datasource都要重新调用代码设置行高的

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/9/19 21:47:00 [只看该作者]

在这个之后我用了这个代码
Tables("订单管理_Table1").ShowCheckBox = True
然后就没有代码了

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/20 20:15:00 [只看该作者]

请做个例子发上来看看

 回到顶部