- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- EXCEL导入导出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121501)
-- 发布时间：2018/7/7 15:59:00
-- EXCEL导入导出
老师，现在有张表，结构是，列名A英文，标题B中文
Dim dlg As New SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
Tables("报告指标项次").SaveExcel(dlg.FileName,"报告指标项次")
End If
用如上的方法导出的话显示的就是标题B中文+内容，这样的话我导入就无法导入，因为实际对应的要英文的那个才行
如何在我导出的时候第一行显示中文，第二行显示英文实际字段？
如下
| 导入时第一行请删除！ | 检验水平IL | 接收质量水平AQL-C | <End> |
| FJianYanShuiPing | FAQLC | ||
| <报告指标项次> | [FJianYanShuiPing] | [FAQLC] | <ALL> |
| <End> |
-- 发布时间：2018/7/7 16:21:00
--
这样处理一下
Tables("报告指标项次").SaveExcel(dlg.FileName,"报告指标项次")
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 0 To Sheet.Cols.Count - 1
For Each c As Col In Tables("报告指标项次").Cols
If c.Caption = sheet(0,i).Text Then
sheet(0,i).Value = c.Name
Exit For
End If
Next
Next
Book.Save(dlg.FileName)
-- 发布时间：2018/7/17 18:02:00
--
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("待测试项目_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt.replace("*","[*]") & "%\'"
tbl.Filter = "规格型号 Like " & txt & " Or 客户对应物料代码 Like " & txt
End If
老师，我这样筛选行，他会跳到单元格内，内容没错，能不能让让筛选后的 待测试项目_Table1固定在那，就是红色处筛选完后还是靠左
此主题相关图片如下：qq截图20180717180050.jpg
-- 发布时间：2018/7/17 19:01:00
--
1、窗口afterLoad事件
e.form.controls("table1").Select
2、筛选之前，设置代码
e.form.controls("table1").Select