老师，狐表里的“生产计划表”，设计了新增按钮，序号自动增加，只增加一行。现在想从Excel导入，新增行数不固定，还得实现序号自动增加，我看了帮助，写了下面的代码，麻烦您给完善一下。这是新增一行的代码：
DataTables("生产计划表").AddNew()
Tables("生产计划表").AutoSizeCols()
下面是导入按钮的代码：
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "xls文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ip As New Importer
ip.SourcePath = dlg.FileName '指定数据文件
ip.SourceTableName = "生产计划表" '指定要导入的表
ip.NewTableName ="生产计划" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()
End If
另外，想实现选择文件的时候xls和xlsx都出现在选择的窗口里。
加好友 
发短信
Post By：2024/3/8 8:41:00 [显示全部帖子]
