- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 后台导出数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187453)
-- 发布时间：2023/7/19 15:46:00
-- 后台导出数据
S elect Case e.Sender.Name
Case "导出"
If Tables(maintable.Name).Rows.Count = 0 Then
MessageBox.Show("无可导出数据，请重新确认！", "提示")
Else
Dim cmd As New SQLCommand
cmd.C
Dim nms() As String = {"打印", "结算单号", "承运单位", "台数", "下游金额", "下游调整金额", "下游考核金额", "借款金额", "运费余款", "汇款信息", "备注", "操作员", "操作日期", "打印人", "打印日期", "打印次数"}
If Filter > "" Then
cmd.CommandText = "S elect 打印, 结算单号, 承运单位, 台数, 下游金额, 下游调整金额, 下游考核金额, 借款金额, ISNULL(下游金额, 0）+ ISNULL(下游调整金额, 0）- ISNULL(下游考核金额, 0）- ISNULL(借款金额, 0) AS 运费余款, 汇款信息, 备注, 操作员, 操作日期, 打印人, 打印日期, 打印次数 From {外协单位结算} W here " & Filter
Else
cmd.CommandText = "S elect 打印, 结算单号, 承运单位, 台数, 下游金额, 下游调整金额, 下游考核金额, 借款金额, ISNULL(下游金额, 0）+ ISNULL(下游调整金额, 0）- ISNULL(下游考核金额, 0）- ISNULL(借款金额, 0) AS 运费余款, 汇款信息, 备注, 操作员, 操作日期, 打印人, 打印日期, 打印次数 F rom {外协单位结算}"
End If
MessageBox.Show("1")
Dim dt As DataTable = cmd.ExecuteReader()
MessageBox.Show("2")
Dim Book As New XLS.Book
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "Excel文件| * .xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
Book.Save(dlg.FileName)
Book = New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim st As XLS.Style = Book.NewStyle \'日期列的显示格式
st.Format = "yyyy - MM - dd"
For c As Integer = 0 To nms.length - 1
If MainTable.Cols(nms(c)).IsDate Then \'如果是日期列
Sheet.Cols(c).Style = st \'设置显示格式
End If
Next
MessageBox.Show("3")
For c As Integer = 0 To nms.Count - 1
Sheet(0, c).Value = nms(c)
Next
MessageBox.Show("4")
For r As Integer = 0 To dt.DataRows.Count - 1
For c As Integer = 0 To nms.Count - 1
Sheet(r + 1, c).Value = dt.DataRows(r)(nms(c))
Next
Next
MessageBox.Show("5")
Book.Save(dlg.FileName)
Dim Result As DialogResult
Result = MessageBox.Show("导出成功, 是否打开所导出文件?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
End If
End If
MessageBox.Show("6")
End Select
第二段代出现以下错误提示：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
“）”附近有语法错误。
-- 发布时间：2023/7/19 16:00:00
--
哪个MessageBox弹不出来？
什么数据库？
弹出sql看看
msgbox(cmd.CommandText)
-- 发布时间：2023/7/19 16:04:00
--
MessageBox.Show("2")弹不出
SQL server
-- 发布时间：2023/7/19 16:05:00
--
弹出sql看看
msgbox(cmd.CommandText)
-- 发布时间：2023/7/19 16:06:00
--
-- 发布时间：2023/7/19 16:12:00
--
msgbox(cmd.CommandText)后弹出上面的窗口
-- 发布时间：2023/7/19 16:18:00
--
有【W here " & Filter 】的情况下出错，还是没有条件的情况下出错？
-- 发布时间：2023/7/19 16:19:00
--
括号有问题，右括号全部都是中文括号，改为英文括号
-- 发布时间：2023/7/19 16:27:00
--
实在是不好意思，这么低级个错误
打扰老师了