主题：[求助]关于数据置换的问题

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

'这里写打印代码

改一改

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 = 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("临时列").width = t.cols("箱号").width

你就不能灵活控制？

t.cols("临时列").width = 500