主题：通用下拉树要是自动输入的列的名字或数量不一样怎么判断?

写得还不错啊，加上判断就可以了：

Dim tr As Row
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开
    tr = e.Form.DropTable.Current '获取此表的当前行
End If
If  e.form.DropTable.Cols.Contains("国家") Then
    If tr("国家") IsNot Nothing Then  '看看表中是不是有这一列
        tr("国家") = dr("国家")
    End If
End If
If  e.form.DropTable.Cols.Contains("省份") Then
    If tr("省份") IsNot Nothing Then '看看表中是不是有这一列
        tr("省份") = dr("省份")
    End If
End If
If  e.form.DropTable.Cols.Contains("市") Then
    If tr("市") IsNot Nothing Then'看看表中是不是有这一列
        tr("市") = dr("市")
    End If
End If
If  e.form.DropTable.Cols.Contains("街道") Then
    If tr("街道") IsNot Nothing Then'看看表中是不是有这一列
        tr("街道") = dr("街道")
    End If
End If
e.Form.DropDownBox.Value = tr("街道")
e.Form.DropDownBox.CloseDropdown()