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

请老师帮我改一下，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:缴费标准.zip

改啥，麻烦给个提示？

点击保存时有提示，表缴费金额列只能生成第一行值，下面行不能生存值。

此主题相关图片如下：qq截图20170401095242.png

[此贴子已经被作者于2016/11/24 9:55:00编辑过]

月份的比较改为

If Tables("缴费标准").Current("月份") = "3" Then

Tables("缴费标准").Current("缴费金额") = val(e.Form.Controls(kbs(j)).Text)

End If

其它的自己改改，或者把月份列改为整型

搞两天都没搞好，要求如下图

此主题相关图片如下：qq截图20170801112113.png

[此贴子已经被作者于2016/11/24 11:21:47编辑过]

Dim d As Date = Date.Today
Dim XQ As String
If d.Month >= 5 And d.Month <=11 Then
    XQ = d.Year & "年秋季"
Else If d.Month = 12 Then
    XQ = (d.Year+1) & "年春季"
Else If d.Month < 5 Then
    XQ = d.Year & "年春季"
End If

Dim kbs() As String = {"学费","餐费","车费"}
Dim bts() As String = {"学费","餐费","车费"}
For j As Integer = 0 To kbs.Length - 1
    Dim kb As String = e.Form.Controls(kbs(j)).Text
    Dim bt As String = e.Form.Controls(bts(j)).Name
    If kb> "" Then
        DataTables("缴费标准").deletefor("学期 = '"& XQ &"' And 缴费项目 = '"& bt &"'")

        Dim idx As Integer = Tables("缴费标准").Rows.Count
        Tables("缴费标准").AddNew(4)
        Dim dr As Row
        For i As Integer = idx To Tables("缴费标准").Rows.Count - 1
            dr = Tables("缴费标准").Rows(i)
            dr("学期") = XQ
            dr("缴费项目") = bt
            dr("月份") = format(i-idx+1)+2

            If dr("月份") = 3 Then
                dr("缴费金额") = e.Form.Controls(kbs(j)).Text
            End If
            If dr("月份") = 4 Then
                dr("缴费金额") = e.Form.Controls(kbs(j)).Text*0.75
            End If
            If dr("月份") = 5 Then
                dr("缴费金额") = e.Form.Controls(kbs(j)).Text*0.5
            End If
            If dr("月份") = 6 Then
                dr("缴费金额") = e.Form.Controls(kbs(j)).Text*0.25
            End If

        Next
    End If
Next

Dim d As Date = Date.Today

Dim XQ As String

If d.Month >= 5 And d.Month <=11 Then

XQ = d.Year & "年秋季"

Else If d.Month = 12 Then

XQ = (d.Year+1) & "年春季"

Else If d.Month < 5 Then

XQ = d.Year & "年春季"

End If

Dim kbs() As String = {"学费","餐费","车费"}

Dim fl() As Double = {1,0.75,0.5,0.25}

For j As Integer = 0 To kbs.Length - 1

Dim bt As String = kbs(j)

Dim kb As String = e.Form.Controls(bt).Text

If kb> "" Then

For i As Integer = 3 To 6

Dim dr As DataRow = DataTables("缴费标准").find("学期 = '"& XQ &"' And 缴费项目 = '"& bt &"' and 月份='" & i & "'")

If dr Is Nothing Then

dr = DataTables("缴费标准").AddNew()

dr("学期") = XQ

dr("缴费项目") = bt

dr("月份") = i

End If

dr("缴费金额") = kb*fl(i-3)

End If

主题：字符转整数