想请您帮忙改一下代码，菜鸡琢磨了一下午还是没弄好。应该是红字部分的问题。Dim sj As WinForm.DateTimePicker = e.Form.Controls("选择日期")
Dim br As String = sj.value
Dim cmb As WinForm.ComboBox
cmb = Forms("main").Controls("选择项目")
If cmb.SelectedIndex = 0 Then
Dim d As Date = DataTables("外部保洁").Compute("日期时间 = 'br'", "保洁地点 = '" & _UserGroup & "'")
Dim tmp As String = ProjectPath & "Attachments\每日报表wb.xls"
Dim rpt As String = ProjectPath & "Reports\" & d.Year & "-" & d.Month & "-" & d.day & _UserGroup & "-外保报表.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)
end if
加好友 
发短信
Post By：2018/7/12 17:25:00 [显示全部帖子]
