主题：[求助]窗体连续打印问题？

如果记账凭证的会计科目显示科目全称，是不是会计科目目录树里面也要显示科目全称啊？

 那你可以去find那一行数据啊。

 

find不是datarow成员

If e.Node.Level = 0 Then  '如果是顶层节点
    Return '则返回
End If

Dim Val() As String = e.Node.Text.Split(" ")

Dim fdr As DataRow = DataTables("会计科目_主表").Find("科目代码='" & val(0) & "'")
Dim r As Row = Tables("记账凭证_主表.记账凭证_明细").Current

r("科目代码") = fdr("科目代码")
r("会计科目") = fdr("科目名称")
e.Form.Close()

DataTables("").Find("会计科目_主表").已修改，OK了

那你可以去find那一行数据啊。   If e.Node.Level = 0 Then  '如果是顶层节点      Return '则返回 End If Dim Val() As String = e.Node.Text.Split(" ") Dim fdr As DataRow = DataTables("会计科目_主表").Find("科目代码='" & val(0) & "'") Dim r As Row = Tables("记账凭证_主表.记账凭证_明细").Current r("科目代码") = fdr("科目代码") r("会计科目") = fdr("科目名称") e.Form.Close()

甜版，预览以后选择打印机可以打印，关闭后可以连续打印后面的（范围内）。但是存在个问题，后面打印不是默认选择·的·打印机。我的折中做法就是在记账凭证窗体把设置好打印机。但如果发布以后，就会提示rpc服务器不可用，服务里已启动，我猜测可能就是找不到打印机的缘故，不知如何解决？