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编辑过]
加好友 
发短信
Post By：2017/6/5 0:27:00 [只看该作者]
