Foxtable(狐表)用户栏目专家坐堂 → 关联表子表列宽及行高问题


  共有3180人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
关联表子表列宽及行高问题  发帖心情 Post By:2017/4/20 11:40:00 [只看该作者]

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

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

图一(在关联表中子表显示)

 
图片点击可在新窗口打开查看此主题相关图片如下:22.png
图片点击可在新窗口打开查看

图二(直接在表中显示)

 
图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/4/20 11:41:04编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/20 11:43:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2017/4/20 13:36:00 [只看该作者]

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

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

[此贴子已经被作者于2017/4/20 13:37:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/20 14:26:00 [只看该作者]

改成

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2017/4/20 14:29:00 [只看该作者]

谢谢有点色老师

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2017/4/25 14:26:00 [只看该作者]

色大师,这个报错没找到原因:

 


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/25 14:36:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2017/4/25 14:44:00 [只看该作者]

就自动更新有问题

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/25 14:48:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2017/4/25 14:56:00 [只看该作者]

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

[此贴子已经被作者于2017/4/25 15:30:03编辑过]

 回到顶部
总数 30 1 2 3 下一页