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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于数据置换的问题

共有1666人关注过本帖树形打印复制链接主题：[求助]关于数据置换的问题

rophy0952

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

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

[求助]关于数据置换的问题 发帖心情

Post By：2017/3/9 12:25:00 [只看该作者]

如图，想在打印控件内加入一段代码，目的是想在打印之前置换红框内表格控件中“送货明细表”中其中一列的内容，置换后不保存。

dim s as string = forms("包装顺序"). controls("号码").value

tables("送货明细表").replace("tables("送货明细表").current("箱号").split("-")(0)","ZY&Format(Date.Today(),"yyyyMMdd")&"-"&"s"")

如：将送货明细表所列的“箱号”列的数据：ＳＣ１６０２１２-１替换成　ＺＹ２０１７０３０９－０１－１

　　　　　　　　　　　　　　　　　　　ＳＣ１６０２１２-２替换成　ＺＹ２０１７０３０９－０１－２

　　　　　　　　　　　　　　　　　　　ＳＣ１６０２１２-３替换成　ＺＹ２０１７０３０９－０１－３

所替换的数据仅为打印时替换，不保存在数据库中，以上代码有些问题，麻烦大侠们指教！

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/9 12:53:00 [只看该作者]

Dim s As String = forms("包装顺序").controls("号码").value
Dim t As Table = Tables("送货明细表")
If t.cols.Contains("临时列") = False Then
    t.DataTable.DataCols.add("临时列", Gettype(String), 32)
    t.cols("临时列").Move(t.cols("箱号").index)
End If
t.cols("箱号").visible = False
For Each r As Row In t.rows
    Dim ary() As String = r("箱号").split("-")
    If ary.length > 1 Then
        r("临时列") = format(Date.Today, "yyyyMMdd") & "-" & s & "-" & ary(1)
    Else
        r("临时列") = format(Date.Today, "yyyyMMdd") & "-" & s
    End If
Next

'这里写打印代码

t.cols("临时列").visible = False
t.cols("箱号").visible = True

[此贴子已经被作者于2017/3/9 12:53:48编辑过]

rophy0952

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

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2017/3/9 13:56:00 [只看该作者]

多谢有点色！

基本上能实现我的需求，但是有两个问题：1. 点击一次打印临时列可以替换“箱号”列，当换下一张进行打印的时候，那临时列和“箱号”列都不出现了，无法连续打印 2. 设置临时列的列宽的代码是什么？谢谢！

如图：

没打印之前的图（原表的内容）：

进入系统后第一次打印的图（成功替换了）：

换张单据再打印时的图（两列都消失了）：

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/9 14:33:00 [只看该作者]

改一改

t.cols("临时列").visible = True
t.cols("箱号").visible = False

For Each r As Row In t.rows
    Dim ary() As String = r("箱号").split("-")
    If ary.length > 1 Then
        r("临时列") = format(Date.Today, "yyyyMMdd") & "-" & s & "-" & ary(1)
    Else
        r("临时列") = format(Date.Today, "yyyyMMdd") & "-" & s
    End If
Next

'这里写打印代码

t.cols("临时列").visible = False
t.cols("箱号").visible = True