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


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

主题：[求助] 单元格填入多次内容
帅哥哟，离线，有人找我吗？
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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/2/29 19:38:00 [只看该作者]

Dim r As Row = Tables("表A").current
Dim str As String = "123456"
If r.IsNull("第一列") Then
    r("第一列") = str
Else
    r("第一列") &= vbcrlf & str
End If

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


加好友 发短信
等级：幼狐 帖子：165 积分：1431 威望：0 精华：1 注册：2015/12/7 19:14:00 		  发帖心情 Post By：2016/2/29 20:58:00 [只看该作者]

r("第一列") &= vbcrlf & str  //里面&=是不是相当于i=i+1;之类.在那有讲解.

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/2/29 20:59:00 [只看该作者]

 是的。

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

e.Form.Controls("电路序号2").Text =  Format(val(e.Form.Controls("电路序号1").Text) + 1, "00")

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/1 17:17:00 [只看该作者]

For i As Integer = 1 To 11
    If e.Form.Controls(i).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("板件槽位") = i
        n1("板件型号") = e.Form.Controls(i).Text
        Exit For
    End If
Next

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
总数 61 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询