Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 单元格填入多次内容


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

主题：[求助] 单元格填入多次内容
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		[求助] 单元格填入多次内容  发帖心情 Post By：2016/2/29 17:59:00 [显示全部帖子]

如下图所示，我的【确定】按钮命令该怎么写？

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/2/29 18:04:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：360截图20160229175605280.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/1 11:14:00 [显示全部帖子]

在  电路序号1 写有如下命令；该怎么修改才能确保 电路序号2 显示为 两位数？如 02 03 。。。10 11

If e.Form.Controls("电路序号1").Text = ""Then
e.Form.Controls("电路序号2").Text = Nothing
Else
e.Form.Controls("电路序号2").Text =  e.Form.Controls("电路序号1").Text +01
End If


图片点击可在新窗口打开查看此主题相关图片如下：360截图20160301111356558.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/3/1 11:17:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/1 16:44:00 [显示全部帖子]

有没有办法优惠以下命令？


If e.Form.Controls("01").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "01"
n1("板件型号") = e.Form.Controls("01").Text
End If

If e.Form.Controls("02").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "02"
n1("板件型号") = e.Form.Controls("02").Text
End If

If e.Form.Controls("03").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "03"
n1("板件型号") = e.Form.Controls("03").Text
End If

If e.Form.Controls("04").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "04"
n1("板件型号") = e.Form.Controls("04").Text
End If

If e.Form.Controls("05").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "05"
n1("板件型号") = e.Form.Controls("05").Text
End If

If e.Form.Controls("06").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "06"
n1("板件型号") = e.Form.Controls("06").Text
End If

If e.Form.Controls("07").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "07"
n1("板件型号") = e.Form.Controls("07").Text
End If

If e.Form.Controls("08").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "08"
n1("板件型号") = e.Form.Controls("08").Text
End If

If e.Form.Controls("09").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "09"
n1("板件型号") = e.Form.Controls("09").Text
End If

If e.Form.Controls("10").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "10"
n1("板件型号") = e.Form.Controls("10").Text
End If

If e.Form.Controls("11").Text <> "" Then
Dim n1 As DataRow = DataTables("机房设备板件表").AddNew
n1("机房名称") = e.Form.Controls("机房名称").Text
n1("系统名称") = e.Form.Controls("系统名称").Text
n1("网元名称") = e.Form.Controls("网元名称").Text
n1("设备编号") = e.Form.Controls("设备编号").Text
n1("设备型号") = "华为 OptiX PTN 1900"
n1("板件槽位") = "11"
n1("板件型号") = e.Form.Controls("11").Text
End If
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/1 17:27:00 [显示全部帖子]

我的控件编号都是 01、02。。。09、10、11


图片点击可在新窗口打开查看此主题相关图片如下：360截图20160301172643521.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/1 19:07:00 [显示全部帖子]

只能录入第一编号有内容的数据，后面的就无法录入。

如果：01、02、03都有内容；那么只能新增一行录入01内容，无法再新增两行录入02、03的内容
如果：01没有内容、02、03都有内容；那么只能新增一行录入02内容，无法再新增两行录入03的内容
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/20 19:38:00 [显示全部帖子]

如下红色字体命令为取消对当前行的修改；如果我希望只是撤销对当前被修改的单元格的修改，命令该怎么修改？

 

If e.sender.Text > "" AndAlso e.Sender.Items.Contains(e.Sender.Text) = False Then
CurrentTable.Current.Reject()
    MessageBox.Show("请在【所属部门】中输入规范内容", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/21 9:27:00 [显示全部帖子]

以下命令显示的时间格式为【2016-03-21】；如果我想实现显示的时间格式为：【2016-03-21 08:20:00】 我的命令该怎么修改？

 

 Tables("系统维护").Current("开始时间)       


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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/9 17:09:00 [显示全部帖子]

以下命令是把多个控件内容填写到一个单元格中

 

n("ODM框ODF盘") = "【"+  e.Form.Controls("ODF1").Text +"】【"+ e.Form.Controls("ODF2").Text +"】【"+ e.Form.Controls("ODF3").Text +"】【"+ e.Form.Controls("ODF4").Text +"】"

 

在ODM框ODF盘的内容为：【ODM1/ODF5】【ODM1/ODF6】【ODM1/ODF8】【ODM2/ODF3】

 

如果我希望实现反向分解，将单元格中内容，分解到各个控件中；命令该怎么写？

 

分解出结果：控件【ODF1】内容为：ODM1/ODF5

                 控件【ODF2】内容为：ODM1/ODF6

                 控件【ODF3】内容为：ODM1/ODF8

                 控件【ODF4】内容为：ODM2/ODF3

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/11 8:42:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：360截图20160411084127105.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 31 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询