以下是引用hhbb在2011-6-28 12:44:00的发言:
重新加載
有点儿绝望了。。
。以下办法都失败:
我尝试了:在[企业名录]表中 PrepareEdit事件中:
1:
Select Case e.Col.name
Case "bid" 'bid 列正是行业分类之ID
Dim id As Integer = DataTables("行业").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("行业").AppendLoad(Filter, False)
End Select
2:
Select Case e.Col.name
Case "bid"
DataTables("行业").Load()
' e.col.DataMap= Nothing ’为了验证选择本列能触发事件而加,现已注释之
End Select
*******分割线*******
我尝试了,若另插入一列,名作:类别 ,然后在上述 select case 中,加入
Case "类别"
e.Col.Combolist = DataTables("行业").GetComboListString("bid")
就可以工作得很好! 介是为湿么涅 
[此贴子已经被作者于2011-6-28 15:32:56编辑过]