以下是引用贺老六在2008-9-22 10:17:00的发言:
呵呵,兄台也不要郁闷了。
至于RowFilter,肯定可以在其他窗口设置的,应该是你的代码有误。
如果要在其他窗口设置:
forms("含datalist窗口的名称").Controls("datalist的名称").RowFilter = "筛选条件"
[此贴子已经被作者于2008-9-22 10:20:55编辑过]
贺老师,我看不出我的代码错在哪儿啊,你看一下我的代码,就是我上次上传的例子,在窗口1设置的关于窗口2的代码:
Dim dst As WinForm.DataList = Forms("窗口2").Controls("DataList1")
DIM kh as string=Tables("客户销售表").Current("客户名称")
dst.DataTable = DataTables("客户销售明细表")
dst.Build()
dst.RowFilter ="[客户名称]='" & kh & "'"
dst.Build()
if Forms("窗口2").Opened=False
Forms("窗口2").Open()
end if
[此贴子已经被作者于2008-9-22 10:26:03编辑过]