主题：关联表子表列宽及行高问题

老师，关联表中的子表列宽怎么让他固定与外面一样呢，另外列顺序也经常乱，是怎么回事呢？

如下图，怎么让图一（在关联表中子表显示）与图二（直接在表中显示）的列宽一样，列顺序不乱。

图一（在关联表中子表显示）

 
此主题相关图片如下：22.png

图二（直接在表中显示）

 
此主题相关图片如下：11.png

跨表引用数据不更新，录入表数据修改后，审核表引用的数据不更新，老师看看，代码如下：

'提交待审核-进项piao审核
If e.DataCol.Name = "审核状态"
    If e.DataRow("审核状态") = "待审核" Then
        Dim nma() As String = {"_Identify","序号","项目编码","所属机构","项目名称","拨款期数","进项piao_fa piao号码"} 
        Dim nmb() As String = {"临时列","序号","项目编码","所属机构","项目名称","拨款期数","进项piao_fa piao号码"} 
        e.DataRow.save
        Dim dr As DataRow = DataTables("进项piao审核").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    Else
        DataTables("进项piao审核").deletefor("临时列 = '" & e.DataRow("_Identify") & "'")
    End If
End If
'跨表自动更新代码
Select  Case e.DataCol.Name
     Case  "序号","项目编码","所属机构","项目名称","拨款期数","进项piao_fa piao号码"
          Dim Filter  As  String =  "[审核状态] = '" & e.DataRow("审核状态") & "'"
          Dim drs  As  List(Of DataRow) =  DataTables("进项piao审核").Select(Filter)
         For  Each dr  As  DataRow  In drs
             dr(e.DataCol.Name) = e.NewValue
         Next
 End  Select

色大师，这个报错没找到原因：

就自动更新有问题

Select  Case e.DataCol.Name
     Case  "序号","项目编码","所属机构","项目名称","拨款期数","进项piao_fa piao号码"
         Dim Filter  As  String = "临时列 = '" & e.DataRow("_Identify") & "'"

色大师，找到问题了，我在父表里面的代码有问题，有点混乱了

色大师，找到问题了，我在父表里面的代码有问题，有点混乱了，这个怎么改呢

进项piao录入表中审核状态为"待审核"时，进项piao审核表中审核状态为"待审核"，进项piao审核表中状态不等于待审核时，进项piao录入表中审核状态=进项piao审核表中审核状态

If Tables("进项piao录入").current("审核状态") = "待审核"  Then

Tables("进项piao审核").current("审核状态") = “待审核”

Else
Tables("进项piao录入").current("审核状态") = Tables("进项piao审核").current("审核状态")
End If

父表的DataColChanged事件

Tables("进项piao录入").current("审核状态") = Tables("进项piao审核").current("审核状态")，貌似直接这样就行了呢

'勾选引用至-开piao情况
If e.DataCol.Name = "开piao状态"
    If e.DataRow("开piao状态") IsNot Nothing Then
        Dim nma() As String = {"_Identify","序号","项目编码","所属机构","项目名称","建设单位","合同金额","合同工期","开piao期数","开piao金额","开piao状态"} 'A表数据来源列
        Dim nmb() As String = {"临时列","序号","项目编码","所属机构","项目名称","建设单位","合同金额","合同工期","开piao期数","开piao金额","开piao状态"}'B表数据接收列
        e.DataRow.save
        Dim dr As DataRow = DataTables("开piao情况").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    Else
        DataTables("开piao情况").deletefor("临时列 = '" & e.DataRow("_Identify") & "'")
    End If
End If

色大师，我开piao情况表里面删除了行，前面开piao申请表里面对应的行不删除呢？其他表都没问题，这个就是不对。