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

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

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

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

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

图二（直接在表中显示）

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

 直接设置一下

http://www.foxtable.com/webhelp/scr/1775.htm

http://www.foxtable.com/webhelp/scr/2496.htm

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

'提交待审核-进项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") & "'"
         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

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

 加入msgbox定位一下你出错的位置，先确定是哪句代码出问题。再贴出代码看看。

就自动更新有问题

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

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

SystemReady = False
         For  Each dr  As  DataRow  In drs
             dr(e.DataCol.Name) = e.NewValue
         Next

SystemReady = True
End  Select

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