关于混合字符数值的计算问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于混合字符数值的计算问题

共有2489人关注过本帖树形打印复制链接主题：关于混合字符数值的计算问题

bootes29

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

加好友

发短信

等级：童狐帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00

关于混合字符数值的计算问题 发帖心情

Post By：2017/6/28 9:43:00 [只看该作者]

各位老师早上好，

上次有个问题，就是混合字符串成人3070，儿童3170，房差1570，每个-10元，转到另外一个表，

老师给了非常好的回答。

Dim dtb As DataTable = DataTables("表e")

Dim dtc As DataTable = DataTables("表k")

Dim ns As new List(of String)

ns.AddRange(new String() {"成人
图片点击可在新窗口打开查看

此主题相关图片如下：换算.jpg

","儿童","单房差"})

For Each dr As DataRow In dtb.DataRows

Dim str As String = dr("价格")

Dim arr() As String = str.Split(",")

Dim n As String

Dim p As Double

str = ""

For Each Ar As String In arr

For Each n1 As String In ns

If ar.Contains(n1) Then

n = n1

Exit For

End If

p = val(ar.Replace(n,"")) - 10

str &= n & p & ","

Dim ndr As DataRow = dtc.AddNew

ndr("价格")=str

bootes29

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

加好友

发短信

等级：童狐帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00

Post By：2017/6/28 9:45:00 [只看该作者]

现在“价格”里面要改的变成了，“1-10号” “11-31号”

我试着是这样做的

ns.AddRange(new String() {"1-11号","儿童","单房差"})

For Each dr As DataRow In dtb.DataRows

这样就会报错，说是值不能为空，这是为何，各位老师？

bootes29

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

加好友

发短信

等级：童狐帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00

Post By：2017/6/28 9:48:00 [只看该作者]

ns.AddRange(new String() {"号","儿童","单房差"})

我改成这样，同样的错误

bootes29

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

加好友

发短信

等级：童狐帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00

Post By：2017/6/28 10:43:00 [只看该作者]

有的色老师请百忙之中指点下迷津！

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/28 11:21:00 [只看该作者]

'Dim dtb As DataTable = DataTables("表e")
'Dim dtc As DataTable = DataTables("表k")
Dim ns As new List(of String)
ns.AddRange(new String() {"儿童","单房差","1-10号"})
'For Each dr As DataRow In dtb.DataRows
Dim str As String = "成人999,1-10号123,儿童3170,单房差1570" 'dr("价格")
Dim arr() As String = str.Split(",")
Dim n As String
Dim p As Double
str = ""
For Each Ar As String In arr
    For Each n1 As String In ns
        If ar.Contains(n1) Then
            n = n1
            Exit For
        End If
    Next
    If n > "" Then
        p = val(ar.Replace(n,"")) - 10
        str &= n & p & ","
    Else
        str &= ar & ","
    End If
Next
msgbox(str.trim(","))
'Dim ndr As DataRow = dtc.AddNew
'ndr("价格")=str
'Next

bootes29

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

加好友

发短信

等级：童狐帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00

Post By：2017/6/28 13:06:00 [只看该作者]

刚回来，感谢老师的指导。

实际上我想让有价格的地方减10，其他文字仍然保留

目前代码存在两个问题

1、感觉表格数据转换上有点问题，如图。

2、保留其他备注文字

这是我的代码：

Dim dtb As DataTable = DataTables("表e")

Dim dtc As DataTable = DataTables("表k")

Dim ns As new List(of String)

ns.AddRange(new String() {"儿童","单房差","1-10号","11-30号","1-13号"})

For Each dr As DataRow In dtb.DataRows

Dim str As String = dr("价格")

Dim arr() As String = str.Split(",")

Dim n As String

Dim p As Double

str = ""

For Each Ar As String In arr

For Each n1 As String In ns

If ar.Contains(n1) Then

n = n1

Exit For

End If

If n > "" Then

p = val(ar.Replace(n,"")) - 10

str &= n & p & ","

Else

str &= ar & ","

End If

'msgbox(str.trim(","))

Dim ndr As DataRow = dtc.AddNew

'ndr("价格")=str.trim(",")

ndr("价格")=str

bootes29

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

加好友

发短信

等级：童狐帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00

Post By：2017/6/28 13:07:00 [只看该作者]

从这张图来看，有些乱码的感觉，右边有原来的数据，左边是代码转来的

bootes29

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

加好友

发短信

等级：童狐帖子：214 积分：1386 威望：0 精华：0 注册：2017/5/13 15:13:00

Post By：2017/6/28 13:07:00 [只看该作者]

此主题相关图片如下：未标题-3 拷贝.jpg

有点蓝

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

加好友

发短信

等级：超级版主帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/6/28 15:16:00 [只看该作者]

这种数据看似有规律，其实没有规律，只会做死自己。

既然是要计算的，为什么不把文字和价格分离存储。在出报表的时候在合并显示好了

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/28 15:38:00 [只看该作者]

参考代码，如果有问题，单独贴出测试代码和数据，说明哪里有问题。

'Dim dtb As DataTable = DataTables("表e")
'Dim dtc As DataTable = DataTables("表k")
Dim ns As new List(of String)
ns.AddRange(new String() {"儿童","单房差","1-10号"})
'For Each dr As DataRow In dtb.DataRows
Dim str As String = "成人,1-10号,123(国线),儿童3170,单房差1570" 'dr("价格")
Dim arr() As String = str.Split(",")
str = ""
For Each Ar As String In arr
    Dim n As String = ""
    Dim p As Double = 0
    For Each n1 As String In ns
        If ar.Contains(n1) Then
            n = n1
            Exit For
        End If
    Next
    If n > "" Then
        p = val(ar.Replace(n,"")) - 10
        If p = -10
            str &= ar & ","
        Else
            str &= n & p & ","
        End If
    Else
        str &= ar & ","
    End If
Next
msgbox(str.trim(","))
'Dim ndr As DataRow = dtc.AddNew
'ndr("价格")=str
'Next

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

总数 11 1 2 下一页

主题：关于混合字符数值的计算问题