在网上搜到林大师的案例，做了一个查询表，从《合同档案》取项目名称、合同编号，从《应收款明细》取“应收款金额”，双方通过“合同编号”建立联系。
此主题相关图片如下：sj-1.png
界面：
此主题相关图片如下：sj-2.png
代码如下：
Dim cbx1 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim cbx2 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox2")
Dim cmd As New SQLCommand
cmd.CommandText = "select " & cbx1.Text & iif(cbx1.Text > "" And cbx2.Text > "", ",", "") & cbx2.Text & " from {合同档案} As a Inner join {应收款明细} As b on (a.合同编号 = b.合同编号)"
'msgbox(cmd.CommandText)
Dim dt As DataTable = cmd.ExecuteReader
e.Form.Controls("Table1").Table.datasource = dt
加好友 
发短信
Post By：2013/3/10 22:59:00 [只看该作者]
