| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]列标题怎么固定高度？每次加载都是很高，我在最后加了设置标题高都不行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154558) |
| -- 作者：zto001 -- 发布时间：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) |
| -- 作者：有点蓝 -- 发布时间：2020/9/18 13:39:00 -- 我测试没有问题，请生成实例说明。 如果有用到fill，datasource设置表格，在设置后再调用上面代码
|
| -- 作者：zto001 -- 发布时间：2020/9/18 20:18:00 -- datasource是在这个之后调用代码 的。我特地放到了最后一行，还是不行 |
| -- 作者：zto001 -- 发布时间：2020/9/18 20:19:00 -- 为啥之前倒是可以。 |
| -- 作者：zto001 -- 发布时间：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 -- 发布时间：2020/9/18 20:21:00 -- [此贴子已经被作者于2020/9/18 20:24:36编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/9/19 8:58:00 -- 用法应该没有问题的。是不是其它地方又重新设置了datasource？每次设置datasource都要重新调用代码设置行高的 |
| -- 作者：zto001 -- 发布时间：2020/9/19 21:47:00 -- 在这个之后我用了这个代码 Tables("订单管理_Table1").ShowCheckBox = True 然后就没有代码了
|
| -- 作者：有点蓝 -- 发布时间：2020/9/20 20:15:00 -- 请做个例子发上来看看 |