这个代码是生成一下临时表的，之前一直正常，在客户端也可以使用，但是现在客户端无法生成临时表了，求原因。

DataTables("生产打印表").deletefor("")

e.Form.Controls("生产打印表").Table.DefaultRowHeight = 33  \'先设置默认行高
e.Form.Controls("生产打印表").Table.SetHeaderRowHeight( 23,23)    \'再设置标题行高.
Dim StartDate As Date = Date.Today
With StartDate
    Forms("生产任务单").Controls("年").text = .Year
    Forms("生产任务单").Controls("月").text = .Month
    Forms("生产任务单").Controls("日").text = .Day
End With

Dim dd As String = Forms("生产任务单").controls("生产单号").text
Dim drCur As Row = Tables("生产主表").Current
If drCur IsNot Nothing Then
    If drCur.IsNull("件数") OrElse drCur("件数") < 1 Then
        Dim r As Row =Tables("生产任务单_生产打印表").addnew(1)
        Dim dr As DataRow = DataTables("生产主表").SQLfind("生产单号 = \'"& dd &"\'and 作废 = 0")
        If dr IsNot Nothing Then
            r("蒸镀规格") = dr("蒸镀规格")
        End If
    Else
        Tables("生产任务单_生产打印表").addnew(drCur("件数"))
        Tables("生产任务单_生产打印表").AllowEdit = True
        Dim dr1 As DataRow = DataTables("生产主表").SQLfind("生产单号 = \'"& dd &"\'and 作废 = 0")
        If dr1 IsNot Nothing Then
            For Each r As Row In Tables("生产任务单_生产打印表").Rows
                r("蒸镀规格") = dr1("蒸镀规格")
            Next
            Tables("生产任务单_生产打印表").AllowEdit = False
        End If
    End If
End If

1、报什么错？

2、加入msgbox，弹出各个关键的值，看其值是否正确。如 msgbox(dd) msgbox(drCur("件数"))

没有报错，在我的电脑里测试是正常的，一到客户端无内容生成出来，刚才弹出窗口：msgbox(drCur("件数"))测试，显示是“2”，具体客户端前后对比如图：

应该是字体问题

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109561&skin=0