表A 的 PrepareEdit事件: If e.Col.Name = "终到站" Then Dim cz As String Dim dr As DataRow = DataTables("车次").Find("[车次] = '" & e.Row("车次") & "'") If dr IsNot Nothing Then For i As Integer = 1 To DataTables("车次").DataCols.Count - 1 cz = dr(DataTables("车次").DataCols(i).Name) & "|" Next End If cz = cz.Trim("|") e.Col.Combolist = cz End If