[求助] 单元格填入多次内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4995人关注过本帖树形打印复制链接主题：[求助] 单元格填入多次内容

大红袍

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/1 17:33:00 [只看该作者]

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

wumingrong1

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的内容

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/1 22:32:00 [只看该作者]

wumingrong1

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

大红袍

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/20 23:25:00 [只看该作者]

Tables("表A").Current("第一列") = Tables("表A").Current.DataRow.OriginalValue("第一列")

wumingrong1

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("开始时间)

Hyphen

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/3/21 10:15:00 [只看该作者]

参考：http://www.foxtable.com/help/topics/0044.htm

http://www.foxtable.com/help/topics/0362.htm

wumingrong1

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

Hyphen

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/4/10 14:45:00 [只看该作者]

Dim s() As String = "【ODM1/ODF5】【ODM1/ODF6】【ODM1/ODF8】【ODM2/ODF3】".Trim("】","【").Replace("】【",",") .Split(",")

For i As Integer = 0 To s.Length - 1

Output.Show(s(i))

大红袍

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/10 22:56:00 [只看该作者]

Dim str As String = "【ODM1/ODF5】【ODM1/ODF6】【ODM1/ODF8】【ODM2/ODF3】"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=【{1}).+?(?=】{1})")
For i As Integer = 0 To mc.count - 1
msgbox(mc(i).value)
Next

下一主题 >> << 上一主题

总数 61 上一页 1 2 3 4 5 6 7 下一页

主题：[求助] 单元格填入多次内容