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

给了帮助都不看不用，既然基础不好，就多按帮助的用法使用

Dim Filter As String
With e.Form.Controls("CheckedComboBox1")
    If .Value IsNot Nothing Then
        Filter = "年级 in ('" & .Value.replace(",", "','") & "'"
    End If
End With
With e.Form.Controls("CheckedComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "班级 in ('" & .Value.replace(",", "','") & "')"
    End If
End With

……

For Each dr1 As DataRow In DataTables("表A").select(Filter）

蓝老师，我这是做的水平表转为垂直表，帮助是所有行，全部科目进行整体转换。我这个代码套用帮助的代码，实现部分行，部分科目，由水平表转为垂直表的效果。

'将阿拉伯数字转换为中文小写格式，下列代码非常完美

Select Case e.DataCol.name

Case "要转换的阿拉伯数字"

If e.DataRow.IsNull("要转换的阿拉伯数字") Then

e.DataRow("自动转换为中文小写") = Nothing

Else

Dim dr As String = e.DataRow("要转换的阿拉伯数字") '要转换的阿拉伯数字。

e.DataRow("自动转换为中文小写") = CLNum(dr) '输出为：一二三

End If

End Select

如果反过来，将中文小写转换为阿拉伯数字格式，下列代码如何修改

Select Case e.DataCol.name

Case "要转换的中文小写"

If e.DataRow.IsNull("要转换的中文小写") Then

e.DataRow("自动转换为阿拉伯数字") = Nothing

Else

Dim dr As String = e.DataRow("要转换的中文小写") '要转换的阿拉伯数字。

e.DataRow("自动转换为阿拉伯数字") =

End If

End Select

想要的结果：一转换为：1；二转换为：2；三转换为：3；四转换为：4；...十一转换为：11；十二转换为：12；... 二十一转换为：21；二十二转换为：22；...

请问老师有没最简洁的办法，比如用一个函数解决

[此贴子已经被作者于2024/5/16 17:42:54编辑过]

要自己做函数转换

转换函数

Dim chineseNumber As String = Args(0)

Dim chineseNums As New Dictionary( Of String, Integer)

chineseNums.Add("零", 0)

chineseNums.Add("一", 1)

chineseNums.Add("二", 2)

chineseNums.Add("三", 3)

chineseNums.Add("四", 4)

chineseNums.Add("五", 5)

chineseNums.Add("六", 6)

chineseNums.Add("七", 7)

chineseNums.Add("八", 8)

chineseNums.Add("九", 9)

Dim Num2 As New Dictionary( Of String, Integer)

Num2.Add("十", 10)

Num2.Add("百", 100)

Num2.Add("千", 1000)

Num2.Add("万", 10000)

Dim result As Integer = 0

Dim temp As Integer = 1

Dim count As Integer = 1

For i As Integer = chineseNumber.Length - 1 To 0 Step - 1

Dim c As String = chineseNumber(i)

Output.Show("i = " & i & ",-----,c = " & c)

If chineseNums.Containskey(c) Then

result += (chineseNums(c) * temp)

temp = 1

Output.Show("++result=" & result)

ElseIf Num2.Containskey(c) Then

temp = temp * Num2(c) * count

If c = "万" Then

count = 10000

End If

Output.Show("**temp = " & Num2(c) & ", result = " & result)

End If

Return result

调用

Dim chineseNumber As String = "五千零七十八"

Dim arabicNumber As Integer = Functions.Execute("转换", chineseNumber)

Output.Show(arabicNumber)

谢谢老师，我试试看

主题：数据提取问题