以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 单元格填入多次内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81531)
--  作者：wumingrong1
--  发布时间：2016/2/29 17:59:00
--  [求助] 单元格填入多次内容
如下图所示，我的【确定】按钮命令该怎么写？
--  作者：wumingrong1
--  发布时间：2016/2/29 18:04:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：360截图20160229175605280.jpg
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：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
--  发布时间：2016/2/29 20:58:00
--  
r("第一列") &= vbcrlf & str  //里面&=是不是相当于i=i+1;之类.在那有讲解.
--  作者：大红袍
--  发布时间：2016/2/29 20:59:00
--  
 是的。
--  作者：wumingrong1
--  发布时间：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编辑过]
--  作者：大红袍
--  发布时间：2016/3/1 11:15:00
--  
e.Form.Controls("电路序号2").Text =  Format(val(e.Form.Controls("电路序号1").Text) + 1, "00")
--  作者：wumingrong1
--  发布时间：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
--  作者：大红袍
--  发布时间：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
--  发布时间：2016/3/1 17:27:00
--  
我的控件编号都是 01、02。。。09、10、11


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