Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]格式问题


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

主题：[求助]格式问题
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]格式问题  发帖心情 Post By：2016/3/1 11:09:00 [显示全部帖子]

红袍老师，

页面中的控件能否按照格式列示位置，来回调每个页面的位置都不一样，切换时候会闪烁，期望每个页面都和页面模板的位置一致，怎么能实现呢？

就是页面2 3 按照页面1模板的位置上面的格式位置显示就行
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2016/3/1 11:10:00 [显示全部帖子]


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:model.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2016/3/1 11:47:00 [显示全部帖子]

额 还没找到门路 思路混乱  问得有点冲动了

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2016/3/1 14:36:00 [显示全部帖子]

红袍老师，
一个窗口保存按钮，能否调用表事件的返回信息呢

Tables("AS004账套信息").Current.Save‘这块保存后会执行Functions.Execute("BeforeSaveDataRow",e)

If Functions.Execute("BeforeSaveDataRow",e) IsNot Nothing Then
    Tables("AS004账套信息").Current.Locked=True
    e.Form.Controls("But21_上一步").Enabled=False
    Dim tb As WinForm.TabControl = e.Form.Controls("Tab01_AS004账套信息")
    Vars("阶段")=0
End If
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2016/3/1 14:56:00 [显示全部帖子]

老师，
我现在问题就出现在这块，怎么规划一下

保存按钮的代码


Tables("AS004账套信息").Current.Save‘这块保存后会执行保存，但是在表BeforeSaveDataRow事件中定义了必填的未填写全的不能保存
                                                   ’同时在表的DataRowLockedChanged 事件中定义了必填的未填写全的不能锁定false

    Tables("AS004账套信息").Current.Locked=True‘上面代码虽然不符合条件，仍继续锁定了，导致后面的不对
    e.Form.Controls("But21_上一步").Enabled=False
    Dim tb As WinForm.TabControl = e.Form.Controls("Tab01_AS004账套信息")
    Vars("阶段")=0
End If
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2016/3/1 15:10:00 [显示全部帖子]

不是这个意思老师，
如 

表中列名   姓名      性别  年龄 备注
行1          blsu33                       
Tables("AS004账套信息").Current.Save‘这块保存后会执行保存，但是在表BeforeSaveDataRow事件中定义了姓名 性别 年龄必填的未填写全的不能保存
                                                   ’同时在表的DataRowLockedChanged 事件中定义了姓名 性别 年龄必填的未填写全的不能锁定false

    Tables("AS004账套信息").Current.Locked=True‘上面代码虽然不符合条件，仍继续锁定了，导致后面的不对
上述代码起不到作用，还能怎么做，难道把Locked 放到事件中去？
[此贴子已经被作者于2016/3/1 15:11:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2016/3/1 15:22:00 [显示全部帖子]

红袍老师，
新增行后 录入不完全的， 不是录入了，怎么还是 Unchanged 未曾修改的行

Unchanged 怎解
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2016/3/1 15:43:00 [显示全部帖子]

红袍老师，
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:model.foxdb



点击新增加后 直接点击保存，并没有提示验证-必填列，我的意思是点击保存时，表事件会提示必填的，不允许后续的锁定问题，麻烦您再该看看。
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2016/3/1 16:12:00 [显示全部帖子]

老师 ，
  不是很懂，我写的备注是否正确

值 说明 备注
Added 新增加的行 .addnew刚刚增加的行，未进行任何操作的行
Modified 已经修改过的行 进行操作过的行（包括added增加后进行添加的行）
Unchanged 未曾修改的行 保存以后，就变成这种状态。
Detached 刚刚创建，还未添加到DataTable中的行；在讲述事件编程的时候，我们会接触到这种状态的行。 ？

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2016/3/1 17:47:00 [显示全部帖子]

红袍老师
Dim flt As String="账套ID,账套名称,账套路径,启用_年度,启用_月份,账套管理员,币别,公司名称,公司类型ID,注册地址"
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.Columns.Clear() '清除原来的列
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.Details '显示模式为详细信息
lvw.GridLines = True '显示网格线
Dim cls() As String =flt.split(",")  '指定要显示的各列
For i As Integer = 0 To cls.Length - 1
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Name = cls(i) '指定列名
    c.Text = cls(i)'指定列标题
    c.Width = -2 '指定列宽
    c.TextAlign=HorizontalAlignment.Center
Next
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 7 次数据查询