以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  祝福大家新年快乐！顺便请教个问题：  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62443)
--  作者：youngk
--  发布时间：2015/1/1 9:00:00
--  祝福大家新年快乐！顺便请教个问题：

如果我有一个多值字段的列，怎么写代码可以实现值达到一定个数时自动换行呢？不如：这个列的一个单元格有12个值，我想把这个单元格弄成分3行每行4个的格式，就是这个样子的：

把1，2，3，4,5,6,7,8,9,10,11,12转换成

1，2，3, 4，

5, 6, 7, 8，

9,10,11,12，

 
--  作者：有点甜
--  发布时间：2015/1/4 12:04:00
--  

 不行，也没有必要这样做。

 

 建议你另外用一列显示，参考代码

 

Dim s As String = "1,2,3,4,5,6,7,8,9,10,11,12"
Dim ary() As String = s.Split(",")
s = ""
For i As Integer = 0 To ary.Length - 1
    If i Mod 4 = 0 AndAlso i > 0 Then
        s &= vbcrlf
    End If
    s &= ary(i) & ","
Next
msgbox(s.Trim(","))

 

 
--  作者：youngk
--  发布时间：2015/1/9 9:16:00
--  

老师：

Dim ary() As String = s.Split(",")
s = ""
请问这段代码是什么意思呢？

  s &= ary(i) & ","
这又是什么意思呢？

i请讲一下作用，谢谢！！
--  作者：jialihaha
--  发布时间：2015/1/9 9:20:00
--  
http://www.foxtable.com/help/topics/0245.htm
--  作者：youngk
--  发布时间：2015/1/9 9:37:00
--  

打不开

 
--  作者：有点甜
--  发布时间：2015/1/9 10:28:00
--  

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

 
--  作者：youngk
--  发布时间：2015/1/15 10:21:00
--  
请问 数组能不能转换成字符串
--  作者：Bin
--  发布时间：2015/1/15 10:22:00
--  
转成字符串? 又拼接起来呗.
--  作者：youngk
--  发布时间：2015/1/15 10:24:00
--  
If  e.Form.controls("DateTimePicker1").Value IsNot  Nothing  And  e.Form.controls("DateTimePicker2").Value Is  Nothing  Then
    For Each nm() As String In DataTables("车号信息记录").GetValues("客户名称|托运人","[客户名称] Is Not Null and [托运人] Is Not Null and [日期] >= \'"& e.Form.controls("DateTimePicker1").Value & "\'")
        Dim mrs  As  new List (of DataRow)
        mrs = DataTables("车号信息记录").Select("[客户名称] = \'" & nm(0) & "\' And[托运人] = \'" & nm(1) & "\'And [日期] >= \'"& e.Form.controls("DateTimePicker1").Value & "\'")
        For Each mr As DataRow In mrs
            Dim mc0 As Integer = mr("车号")
            Dim md0 As Decimal = mr("标重")
            Dim mc As String = cstr(mc0)
            Dim md As String = cstr(md0)
            Dim mcds() As String = {mc,md}
            Dim mcd As String
            mcd = String.Join("/", mcds)
            Dim zcds As new List (of String)
            If zcds.contains("mcd") = False Then
                zcds.add("mcd")
            End If
            Dim arys() As String
            arys = zcds.Toarray()
            Dim dr As DataRow = DataTables("客户车号统计表").AddNew()
            dr("客户名称") = nm(0)
            dr("托运人") = nm(1)
            dr("车号和标重")= cd
            Next
        Next
    Next
End If
--  作者：Bin
--  发布时间：2015/1/15 10:24:00
--  
你的问题是什么?