以下是引用cpayinyuan在2009-7-27 15:23:00的发言：
怎么回事?哪儿没数据了?
DST提取的是SQL后台数据,现在显示不出来
Dim cm As winform.combobox = e.form.Controls("combobox1")
Dim tx As winform.textbox = e.form.Controls("textbox3")
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
Dim cmd As New SQLCommand
cmd.C
if cm.value is nothing then
Return
end if
Dim dt As DataTable
Select Case cm.value
Case "柜号"
cmd.CommandText = "SELECT * From {柜型柜号} WHERE 柜号 like '%" & tx.text & "%'"
dt = cmd.ExecuteReader()
dst.DataTable = dt
dst.ColumnList = "日期|工作号|业务员|订舱号|柜型|柜号|封条号|拖车公司"
end case
if Vars("用户名") = "XX" then
dst.Filter = "[业务员] = 'XX'"
end if
dst.Sort = "日期 DESC"
dst.Build()
[此贴子已经被作者于2009-7-27 15:33:22编辑过]
加好友 
发短信
Post By：2009/7/27 15:00:00 [显示全部帖子]
