文本框赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

做一个foxtable例子发上来测试，说明所需要的效果。

甜老师：

标签打印已解决，非常感谢.

foxtable软件，我是在网上下载的，做了一个小型生产管理系统，软件是不是一直免费。

另外打印出的内容每页都有“www.foxtable.com”水印，怎么消除呀

以下是引用liuandwang在2018/6/22 16:25:00的发言：
甜老师：

另外打印出的内容每页都有“www.foxtable.com”水印，怎么消除呀

foxtable没有免费版本，只有试用版。试用期大概是三个月到半年。

出现水印说明试用期到了，需要购买正版使用。

甜老师：

我在汇总表中加了一个按钮，代码如下

我就想显示订单编号、客户名称、产品名称、切料重量四列，但下面代码将订单主表所有列都显示出来了，帮忙给改一下。谢谢。

Dim doc As New PrintDoc

Dim rt As New Prt.RenderTable

Dim rx As prt.RenderText

Dim cnt As Integer

Dim tbl As Table = Tables("订单主表")

Dim drs As List(Of DataRow)

Dim pds As List(Of String) = tbl.DataTable.GetValues("产品名称",tbl.Filter)

rt.Style.GridLines.All = New prt.LineDef(0.3,Color.LightGray)

rt.CellStyle.Spacing.All = 1

rt.Style.Font = tbl.Font

For c As Integer = 0 To tbl.Cols.Count - 1 '生成列标题

rt.Cells(0,c).Text = tbl.Cols(c).Name

rt.Cols(c).Width = tbl.Cols(c).PrintWidth

For Each pd As String In pds '分产品打印

If tbl.Filter > "" Then

drs = tbl.DataTable.Select("产品名称 = '" & pd & "' And " & tbl.Filter)

Else

drs = tbl.DataTable.Select("产品名称 = '" & pd & "'" )

End If

For Each dr As DataRow In drs '逐行打印此产品的订单

cnt = rt.Rows.Count

For i As Integer = 0 To tbl.Cols.Count - 1

rt.Cells(cnt, 0).Text = dr("订单编号")

rt.Cells(cnt, 1).Text = dr("产品名称")

rt.Cells(cnt, 2).Text = dr("客户名称")

rt.Cells(cnt, 3).Text = dr("切料重量")

cnt = rt.Rows.Count

rt.Cells(cnt, 0).Text = "小计 " & pd '打印产品的小计

rt.Cells(cnt,3).Text = tbl.compute("Sum(切料重量)", "产品名称 = '" & pd & "'")

cnt = rt.Rows.Count

rt.Cells(cnt, 0).Text = "合计 " '打印合计

rt.Cells(cnt, 5).Text = tbl.compute("Sum(切料重量)")

doc.Body.Children.Add(rt)

Dim doc As New PrintDoc
Dim rt As New Prt.RenderTable
Dim rx As prt.RenderText
Dim cnt As Integer
Dim tbl As Table = Tables("订单主表")
Dim drs As List(Of DataRow)
Dim pds As List(Of String) = tbl.DataTable.GetValues("产品名称",tbl.Filter)
rt.Style.GridLines.All = New prt.LineDef(0.3,Color.LightGray)
rt.CellStyle.Spacing.All = 1
rt.Style.Font = tbl.Font
Dim ColNames As String() = New String(){"产品", "日期", "数量"}
For c As Integer = 0 To ColNames.length - 1 '生成列标题
    rt.Cells(0,c).Text = ColNames(c)
    rt.Cols(c).Width = tbl.Cols(ColNames(c)).PrintWidth
Next
For Each pd As String In pds '分产品打印
    If tbl.Filter > "" Then
        drs = tbl.DataTable.Select("产品名称 = '" & pd & "' And " & tbl.Filter)
    Else
        drs = tbl.DataTable.Select("产品名称 = '" & pd & "'" )
    End If
    For Each dr As DataRow In drs '逐行打印此产品的订单
        cnt = rt.Rows.Count
        For c As Integer = 0 To ColNames.length - 1 '生成列标题
            rt.Cells(cnt, c).Text = dr(colnames(c))
        Next
    Next
    cnt = rt.Rows.Count
    rt.Cells(cnt, 0).Text = "小计 " & pd '打印产品的小计
    rt.Cells(cnt,3).Text = tbl.compute("Sum(切料重量)", "产品名称 = '" & pd & "'")
Next
cnt = rt.Rows.Count
rt.Cells(cnt, 0).Text = "合计 " '打印合计
rt.Cells(cnt, 5).Text = tbl.compute("Sum(切料重量)")
doc.Body.Children.Add(rt)

甜老师，我想买一个个人用户的商业版软件，能发一个链接吗

以下是引用liuandwang在2018/6/25 15:10:00的发言：
甜老师，我想买一个个人用户的商业版软件，能发一个链接吗

联系官方客服QQ800014337

http://www.foxtable.com/buy.html

主题：文本框赋值