Question

我有一个问题 - 我正在尝试理解如何格式化字符串，因为我在数据行中循环，而我在搜索时发现的只是日期/时间格式。我需要拿一个帐号，比如51100000并在报告中将其拆分（最终目的地是水晶），所以它读取5 110 000。这是我必须填充数据表的代码：我特别关注帐户编号

Private Sub write_records()
    For x = 0 To (ds2.Tables("report").Rows.Count - 1)
        mydatarow = mydatatable.NewRow
        mydatarow("Dept no.") = Trim(ds2.Tables("report").Rows(x).Item(1))
        mydatarow("Dept Name") = Trim(ds2.Tables("report").Rows(x).Item(0))
        mydatarow("Account name") = Trim(ds2.Tables("report").Rows(x).Item(3))
        mydatarow("Account no.") = (ds2.Tables("report").Rows(x).Item(2))"THIS IS THE LINE I NEED TO FORMAT AS # ##### ###"
        mydatarow("Obudget") = (ds2.Tables("report").Rows(x).Item(4))
        mydatarow("Budget") = Trim(ds2.Tables("report").Rows(x).Item(5))
        mydatarow("Expenditure") = Trim(ds2.Tables("report").Rows(x).Item(6))
        mydatarow("Encumbrance") = Trim(ds2.Tables("report").Rows(x).Item(7))
        mydatarow("Outstanding Balance") = mydatarow("budget") - mydatarow("expenditure") - mydatarow("encumbrance")
        mydatatable.Rows.Add(mydatarow)
    Next x

End Sub

有人能指出我正确的方向吗？

答案（至少对我而言!!!）

我实际上最终使用CR而不是选择案例陈述 - 基本上长度（帐户）CASE 7：图片（X XXX XXX）案例8：图片（X XXXX XXX）谢谢！

格式化数据行中的字符串

0 个答案: