通用下拉树

表1正常自动输入,表2和表3怎么判断呢?

我写的代码比较烂,出错了 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目.rar

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

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()