- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 该特定字段 '日期' 可以参考 SQL 语句中 FROM 子句列表中的多个表。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101655)
-- 发布时间：2017/6/5 0:27:00
-- 该特定字段 '日期' 可以参考 SQL 语句中 FROM 子句列表中的多个表。
Dim rkxx As WinForm.CheckedComboBox = e.Form.Controls("入款选项")
Dim zcxx As WinForm.CheckedComboBox = e.Form.Controls("支出选项")
Dim cmd As New SQLCommand
Dim cols As String = rkxx.Text & iif(rkxx.Text > "" And zcxx.Text > "", ",", "") & zcxx.Text
cmd.CommandText = "select " & cols & " fr m {入款表} As a Inner join {支出表} As b on (a.客户名 = b.客户名)"
Dim dt As DataTable = cmd.ExecuteReader
e.Form.Controls("导出预览表").Table.datasource = dt
With e.Form.Controls("导出预览表").Table
.MergeMode = MergeModeEnum.Free
For Each c As String In cols.Split(",")
.MergeCols.Add(c)
Next
.AllowMerge = True
End With
[此贴子已经被作者于2017/6/5 0:31:51编辑过]
-- 发布时间：2017/6/5 0:34:00
--
请问怎么解决？
-- 发布时间：2017/6/5 0:34:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:logistics.table |
-- 发布时间：2017/6/5 8:58:00
--
Dim cols As String = "a." & rkxx.Text.replace(",", ",a.") & iif(rkxx.Text > "" And zcxx.Text > "", ",", "") & zcxx.Text
你还要注意一点，表达式列，也是不能直接使用的，不然也会报错。
-- 发布时间：2017/6/6 0:17:00
--
谢谢