蓝老师，按钮代码是这样的，那代码放到哪里好
Dim c As WinForm.ComboBox = e.Form.Controls("会计期间")
Dim d As WinForm.DropDownBox = e.Form.Controls("银行账号名称")
If c.Value=Nothing Then
MessageBox.Show("请输入会计期间!")
Return
Else If d.Value=Nothing Then
MessageBox.Show("请选择银行帐号名称!")
Return
Else
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xlsx;*.xls;*.csv" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Cols1() As Integer = {0,6,6,7,7,3,2,11} 'execl列索引从0开始
Dim Cols2() As String = {"单据头业务日期", "日记账明细借方金额", "单据头借方金额","日记账明细贷方金额","单据头贷方金额", "日记账明细对方银行账号","日记账明细对方账户名称","日记账明细摘要"}
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("日记帐_日记帐明细").StopRedraw()
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count - 1
Dim bh As String = sheet(n, 0).Text
Dim r As Row = Tables("日记帐_日记帐明细").AddNew()
For m As Integer = 0 To Cols1.Length - 1
r(Cols2(m)) = Sheet(n, Cols1(m)).Value
Next
Next
Tables("日记帐_日记帐明细").ResumeRedraw()
End If
End If
加好友 
发短信
Post By：2025/3/23 23:27:00 [显示全部帖子]
Post By：2025/3/24 15:09:00 [显示全部帖子]
此主题相关图片如下：微信图片_20250323232113.png
