主题：[求助]动态生成查询表

只做了“预算申请单”，“往来申请"自己参考着做

代码会出现用途栏空白：

此主题相关图片如下：微信截图_20200206090051.png

我在支付下拉的DateColChanged事件中增加了一段： 

此主题相关图片如下：微信截图_20200206085222.png

提示出现如下错误：

此主题相关图片如下：微信截图_20200206085121.png

我后来在"预算单维护表"DateColChanged的事件中增加了代码

    Case "业务日期"
        If e.DataRow.IsNull("预算单编号") = False
            Dim dr As DataRow = DataTables("支付下拉窗口").find("编号='" & e.DataRow("预算单编号")  & "'")
            If dr Is Nothing Then
                dr = DataTables("支付下拉窗口").addnew
                dr("编号") = e.DataRow("预算单编号")
            End If
            DataTables("支付下拉窗口").DataCols("编号").RaiseDataColChanged(dr)
        End If
    Case "申请_用途"
        If e.DataRow.IsNull("预算单编号") = False
            Dim dr As DataRow = DataTables("支付下拉窗口").find("编号='" & e.DataRow("预算单编号")  & "'")
            If dr Is Nothing Then
                dr = DataTables("支付下拉窗口").addnew
                dr("编号") = e.DataRow("预算单编号")
            End If
            DataTables("支付下拉窗口").DataCols("编号").RaiseDataColChanged(dr)
        End If

不报错了，支付下拉表里用途也有内容了，但业务日期又空了？

Case "业务日期"，"申请_用途"
        If e.DataRow.IsNull("预算单编号") = False
            Dim dr As DataRow = DataTables("支付下拉窗口").find("编号='" & e.DataRow("预算单编号")  & "'")
            If dr Is Nothing Then
                dr = DataTables("支付下拉窗口").addnew
                dr("编号") = e.DataRow("预算单编号")
            End If
            dr(e.datacol.name) = e.DataRow(e.datacol.name)
        End If

已解决，谢谢老师