『易坊知识库摘要_Foxtable|Foxtable常用代码汇总( 五 )』45、et As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表For i As Integer = 0 To 9 向工作表的单元格中设置值Sheet(i, 0).Value = https://www.renrendoc.com/paper/(i + 1) * 10...

45、et As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表For i As Integer = 0 To 9 向工作表的单元格中设置值Sheet(i, 0).Value = https://www.renrendoc.com/paper/(i + 1) * 10 Sheet(i, 1).Value = (i + 1) * 100Sheet(i, 2).Value = (i + 1) * 1000NextSheet(10,2).Value = New XLS.Picture(GetImage(c:Foxtable.Ico)Book.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Pro 。

46、cess 打开工作簿Proc.File = c:reportstest.xlsProc.Start()按钮或菜单单元格的Value属性 ， 不仅可以设置为数据 ， 还可以设置为一个XLS.Picture对象 。
XLS.Picture用于定义一个可插入到Excel单元格的图片 ， 语法为：New XLS.Picture(Image)或New XLS.Picture(Image, Left, Top, Width, Height)参数：Image: 要插入的图片 。
Left: 左边距 ， 单位为像素 。
Top: 上边距 ， 单位为像素 。
Width： 宽度 ， 单位为像素 。
Height: 高度 ， 单位为像素 。
可用GetImage函 。

47、数从指定的图标文件中获得图标 ， 如果文件已经事先复制到管理项目的Images子目录下,则只需指定文件名即可,否则需要包括路径 。
71EXCEL报表在Excel报表模板中加上制单人信息Dim Book As New XLS.Book(ProjectPath & Attachments出库单.xls) 打开模板Dim Sheet As XLS.Sheet = Book.Sheets(0)Sheet(6,6).Value = https://www.renrendoc.com/paper/制单人: & User.Name 修改模板,加入制单人信息Book.Build() 生成细节区Book.Save(c:reportstest.xls) 保存工作簿Dim Proc。

48、As New Process 打开工作簿Proc.File = c:reportstest.xlsProc.Start()按钮或菜单72Row当前选定的行Dim dr As Row = Tables(订单).Current按钮或菜单73Row删除选定行Tables(订单).Current.Delete() 按钮或菜单74Row克隆第一行Tables(订单).Rows(0).Clone() 按钮或菜单75Row移除当前表的选定行CurrentTable.Current.Remove()按钮或菜单移除和删除是不同的 ， 移除只是使得表中暂时不再包括该行 ， 就像该行从来没有被加载过一样；不管你是否保存文件 。

49、 ， 下次打开后 ， 被移除的行还会出现 。
76Row序号列自动赋值With Tables(常用代码)For i AS integer = 0 To .Rows.Count - 1.Rows(i)(xh) = i + 1Next End With按钮或菜单77Table第一行CurrentTable.Position = 0按钮或菜单78Table最末行CurrentTable.Position = CurrentTable.Rows.Count - 1按钮或菜单79Table上一行CurrentTable.Position = CurrentTable.Position - 1按钮或菜单80Table 。

50、下一行CurrentTable.Position = CurrentTable.Position + 1按钮或菜单81Table删除行CurrentTable.Current.Delete按钮或菜单82Table新增行CurrentTable.AddNew()按钮或菜单83Table隐藏指定行隐藏第五行:CurrentTable.Position= 4Syscmd.Row.HideSelectedRows()按钮或菜单84Table隐藏所有行with currentTable.select(0,0,.rows.count - 1,0)Syscmd.Row.HideSelectedRows()E 。

51、nd With按钮或菜单85Table显示所有行If CurrentTable Is Nothing Then ReturnElse CurrentTable.StateFilter = StateFilterEnum.NoneEnd If按钮或菜单86Table选定整个表With Tables(订单).Select(0, 0, .Rows.Count - 1, .Cols.Count - 1)End With按钮或菜单87Table选定数量列With Tables(订单)Dim c As Integer= .Cols(数量).Index.Select(0, c, .Rows.Count -。

【Foxtable|Foxtable常用代码汇总】52、1, c)End With按钮或菜单88Table重置当前表选定列With CurrentTable.Cols(.ColSel).DataCol.RaiseDataColChanged()End With按钮或菜单要重置当前表选定列 ， 但是Col并没有重置列的方法 ， 我们只能调用DataCol的RaiseDataColChanged方法89Table当前表增加一行CurrentTable.AddNew()按钮或菜单90Table在关联表“产品.订单”中增加10行Tables(产品.订单).AddNew(10)按钮或菜单和DataTable的AddNew方法相比 ， 用Table的AddNew方法增加行有以下优点：1、光标会自动移到新增加的行 。
2、如果在关联子表中增加行 ， 其关联列内容会自动填入 。
所以大多数时候 ， 我们用Table的AddNew方法增加行 ， 因为这样更方便 。
91Table条件筛选Tables(订单).Filter = 客户 = CS01 And 日期 = #1/1/2007# And 日期 - 1 Then 如果找到符合条件的行 .Select(r, 0) 则选择该行 End If End With按钮或菜单在当前表的第一列输入一些内容(别忘记要输入一些 。

来源：(未知)

【学习资料】网址：/a/2021/0413/0021924638.html

标题：Foxtable|Foxtable常用代码汇总( 五 )