以下是引用狐狸爸爸在2009-5-18 16:46:00的发言:
我搞错,那就设置columnList属性,包括所有列即可。
Dim ColumnList As String
For each c as Col in Tables("某表").Cols
ColumnList = ColumnList & c.Name & ","
Next
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.ColumnList= ColumnList.Trim(",")
dst.DataTable = DataTables("某表")
dst.Build()
[此贴子已经被作者于2009-5-18 16:46:23编辑过]
Dim ColumnList As String
For each c as Col in Tables("表B").Cols
ColumnList = ColumnList & c.Name & ","
Next
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.ColumnList= ColumnList.Trim(",") '如只有这一行代码显示不出数具
dst.ColumnList = "第一列|第二列" '必须加上这一代码才能显示呢
dst.DataTable = DataTables("表B")
dst.Build()