祝福大家新年快乐！顺便请教个问题： - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 祝福大家新年快乐！顺便请教个问题：

共有4487人关注过本帖树形打印复制链接主题：祝福大家新年快乐！顺便请教个问题：

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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(","))

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/9 10:28:00 [显示全部帖子]

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/15 10:26:00 [显示全部帖子]

不明白你什么意思，请上传例子具体说明。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/15 10:33:00 [显示全部帖子]

不用优化，直接加入停止绘制即可

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/15 10:37:00 [显示全部帖子]

If e.Form.controls("DateTimePicker1").Value IsNot Nothing And e.Form.controls("DateTimePicker2").Value Is Nothing Then
    DataTables("客户车号统计表").StopRedraw
    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 dr As DataRow = DataTables("客户车号统计表").AddNew()
            dr("客户名称") = nm(0)
            dr("托运人") = nm(1)
            dr("车号和标重")= mr("车号") & "/" & mr("标重")
        Next
    Next
Next
DataTables("客户车号统计表").ResumeRedraw
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/15 10:48:00 [显示全部帖子]

例子上传上来，说明目的。

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

主题：祝福大家新年快乐！顺便请教个问题：