Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]piao据套打设计


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

主题：[求助]piao据套打设计
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

上传具体例子。

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


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

需要用代码给各个控件赋值，不能用绑定的方式。

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


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

 用代码分别赋值。上传具体项目。

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


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

 跟上传图片一样上传。大小不能超过2M。单独做一个小例子上来。

[此贴子已经被作者于2016/2/22 14:54:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

方法一： 跟 小委托 一样，把三行的内容编程三列的内容，也就是一行大委托有三行的内容。这样直接绑定列，然后对应的赋值即可；

 

方法二：比如在afterLoad事件直接给各个控件赋值

 

Dim r1 As Row = Tables("表A").Rows(0)

Dim r2 As Row = Tables("表A").Rows(1)

Dim r3 As Row = Tables("表A").Rows(2)

 

e.Form.Controls("TextBox1").Text = r1("第一列")

e.Form.Controls("TextBox2").Text = r1("第二列")

 

e.Form.Controls("TextBox3").Text = r2("第一列")

e.Form.Controls("TextBox4").Text = r2("第二列")

 

e.Form.Controls("TextBox5").Text = r3("第一列")

e.Form.Controls("TextBox6").Text = r3("第二列")
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

大委托和小委托是什么关系？按照什么规则填入到大委托？

 

建议你用方法二，你要取出哪一行的内容都可以

 

 

'获取表A的某三行 数据

Dim r1 As Row = Tables("表A").Rows(0)

Dim r2 As Row = Tables("表A").Rows(1)

Dim r3 As Row = Tables("表A").Rows(2)

 

'把第一行数据显示到某些控件

e.Form.Controls("TextBox1").Text = r1("第一列")

e.Form.Controls("TextBox2").Text = r1("第二列")

 

'第二行数据

e.Form.Controls("TextBox3").Text = r2("第一列")

e.Form.Controls("TextBox4").Text = r2("第二列")

 

'第三行数据

e.Form.Controls("TextBox5").Text = r3("第一列")

e.Form.Controls("TextBox6").Text = r3("第二列")
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

看13楼，方法二。

 

如果用方法一，同样的，你往表格里面填入小委托选择的行的内容即可。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

汗，如下。

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:报账单.table
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 6 次数据查询