以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口table最少行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38329)

--  作者:CRM2013
--  发布时间:2013/7/26 9:30:00
--  窗口table最少行

请问在窗口插入的table,如何设置能让其自动填充一定行?避免下图中的灰色区域。

 


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


--  作者:Bin
--  发布时间:2013/7/26 9:33:00
--  
侧面的灰色可以扩张最后一列来实现.Tables("表名").ExtendLastCol

下面灰色没有办法,要么你把颜色改成白色

DataTables("表A").SysStyles("EmptyArea").BackColor = Color.White


--  作者:CRM2013
--  发布时间:2013/7/26 9:46:00
--  
谢谢!
--  作者:CRM2013
--  发布时间:2013/7/26 10:18:00
--  

另外请教一下,如何判断一个文件的大小?FileName.Length 出来的不是我们所说的文件size,如120K 或 2.0M,

 

 

 

Result = MessageBox.Show("你选择的是:" & dlg.FileName &  Chr(13) & Chr(10) &  "文件大小:" & dlg.FileName.Length ,"提示"


--  作者:Bin
--  发布时间:2013/7/26 10:19:00
--  
请看这里 http://www.foxtable.com/help/topics/2707.htm
--  作者:CRM2013
--  发布时间:2013/7/26 10:29:00
--  

谢谢bin,我参考的就是这个,但用FileName.Length 出来后显示的不是文件的大小,代码如下,我选择了一个2M的文件,但显示的却是文件大小:38

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb|PDF文件|*.pdf|图形文件|*.bmp;*.jpg;*.gif|文本文件|*.txt" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim Result As DialogResult
    Result = MessageBox.Show("你选择的是:" & dlg.FileName &  Chr(13) & Chr(10) &  "文件大小:" & dlg.FileName.Length ,"提示" , MessageBoxButtons.OkCancel, MessageBoxIcon.Question)


--  作者:Bin
--  发布时间:2013/7/26 10:32:00
--  
你好,经过测试 是可以正常获得文件大小的.

Dim ifo As new FileInfo("C:\\Users\\foxtable1\\Desktop\\出库单.xls")
messagebox.Show("文件大小:" & ifo.Length)


--  作者:lsy
--  发布时间:2013/7/26 10:50:00
--  
Dim ifo As new FileInfo("C:\\foxtable\\eval\\C1.Win.C1Chart.2.dll")
messagebox.Show("文件大小:" & ifo.Length/1024/1024)