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

 直接设置一下

 

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

 

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

 

改成

 

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") & "'"
         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

不可能报错，实例上传上来。

 你12楼这段代码写在什么事件里面？单独在按钮里执行，不应该有问题的。

 父表DataColChanged事件不能写这样的代码。如果要写，也要这样写

 

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

 

 不会做，上传实例。

 你datacolchanged事件里面的代码有冲突，删除了行，后面再使用此行，肯定是不行的。你删除行的代码，必须写到最后。

 

 具体问题，做个例子上来测试。

 你的例子要如何操作后出问题？

看19楼，如何操作报错？

 

参考着写代码。

 

If e.DataCol.name = "开piao状态" Then
    Dim fdr As DataRow = DataTables("开piao申请").Find("_Identify = " & e.DataRow("临时列"))
    If fdr IsNot Nothing Then
        fdr("开piao状态") = e.DataRow("开piao状态")
    End If
End If