这个表AfterSelChange事件
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
If c.Name = "第二列" AndAlso e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
Dim r As Row = e.Table.Rows(e.NewRange.Rowsel) '获得新选择的行
If r.IsNull("第一列") Then
c.DataMap = Nothing
Else
Dim dmp As New TableDataMap
dmp.DataTable = "表A" '指定数据来源表
dmp.ValueCol = "第二列" '指定取值列
dmp.DisplayCol = "第二列" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "第二列"
dmp.Filter = "[第一列] = '" & r("第一列") & "'"
c.DataMap = dmp.CreateDataMap()
End If
End If
End If
加好友 
发短信
Post By：2020/2/1 9:05:00 [显示全部帖子]
