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


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

主题:[求助]格式问题

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/1 11:14:00 [显示全部帖子]

 你根据模板选项卡的各个控件的left、top,设置好其余控件的left、top不就行了。

 

 怎么可能用代码一次性解决。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/1 14:40:00 [显示全部帖子]

save的时候,没有信息返回的。

 

如果要控制,你就需要一行一行的保存,然后在按钮里实现具体逻辑。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/1 15:04:00 [显示全部帖子]

  判断一下行的状态

 

If Tables("AS004账套信息").Current.DataRow.RowState = DataRowState.Unchanged then

 

 

 

End If

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/1 15:11:00 [显示全部帖子]

看8楼,判断状态。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/1 15:23:00 [显示全部帖子]

保存以后,就变成这种状态。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/1 16:02:00 [显示全部帖子]

Tables("表B").Current.Save
If Tables("表B").Current.DataRow.RowState = DataRowState.Unchanged Then
    Tables("表B").Current.Locked=True
End If

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/1 16:23:00 [显示全部帖子]

Added 红色的行
Modified 黄色的行
Unchanged 蓝色的行
Detached 在DataRowAdding的时候的行


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/1 22:50:00 [显示全部帖子]

例子发上来看看。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/2 10:24:00 [显示全部帖子]

这段代码,写在最后面

 

For Each cl As String In cls '逐列取值
    lvw.Columns(cl).width = -2
Next


 回到顶部