以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并Excel数据时如何在固定列自动填充文本框的内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191031)
--  作者：13315253800
--  发布时间：2024/3/22 14:56:00
--  合并Excel数据时如何在固定列自动填充文本框的内容

蓝老师，咨询一下合并Excel文件数据的同时如何在“年月”列自动填充文本框的内容

\'用下面的代码没成功，请蓝老师指导

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

dlg.Filter = "Excel文件|*.xls" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

    Dim mg As New Merger

    mg.SourcePath = dlg.FileName

    mg.Format = "excel" \'指定格式

    mg.SourceTableName = "材料$" \'指定要合并的表的名称,源表

    mg.DataTableName = "信息表" \'指定接收合并数据的数据表的名称

    mg.Merge()

End If

\'输入组合框内容

Dim b As WinForm.ComboBox \'定义文本输入框变量

b = e.Form.Controls("ComboBox1")\'文本输入框凭证ID

Dim dr As DataRow = DataTables("信息表").AddNew() \'指定数据接收表

dr("年月") = b.Value \'引用组合框输入的值
--  作者：有点蓝
--  发布时间：2024/3/22 15:06:00
--  
dim  max as integer = tables("信息表").compute("max(_identify)")
导入的代码

Dim b As WinForm.ComboBox \'定义文本输入框变量

b = e.Form.Controls("ComboBox1")\'文本输入框凭证ID

DataTables("信息表").replacefor("年月",b.text,"_identify >" & max )
--  作者：13315253800
--  发布时间：2024/3/22 16:42:00
--  
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel" \'指定格式
    mg.SourceTableName = "材料$" \'指定要合并的表的名称,源表
    mg.DataTableName = "交通参考价" \'指定接收合并数据的数据表的名称
    mg.Merge()
End If

Dim max As Integer = Tables("交通参考价").compute("max(_identify)")
\'导入的代码
Dim b As WinForm.ComboBox \'定义文本输入框变量
b = e.Form.Controls("ComboBox1")\'文本输入框内容
DataTables("交通参考价").replacefor("年月", b.text, "_identify >" & max)
蓝老师，完整的代码是这样吗？没能实现目的
[此贴子已经被作者于2024/3/22 16:44:52编辑过]
--  作者：有点蓝
--  发布时间：2024/3/22 16:48:00
--  
Dim max As Integer = Tables("交通参考价").compute("max(_identify)")
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel" \'指定格式
    mg.SourceTableName = "材料$" \'指定要合并的表的名称,源表
    mg.DataTableName = "交通参考价" \'指定接收合并数据的数据表的名称
    mg.Merge()
End If
Dim b As WinForm.ComboBox \'定义文本输入框变量
b = e.Form.Controls("ComboBox1")\'文本输入框内容
DataTables("交通参考价").replacefor("年月", b.text, "_identify >" & max)
蓝老师，完整的代码是这样吗？没能实现目的